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Foreword 



Like COMPUTE !'s other books devoted to the Atari home 
computer, COMPUTEl's Third Book of Atari is packed with articles 
on programming techniques, ready-to-run software, computer 
utilities, and reference information — all designed to make your 
Atari computer even more useful than before. 

Whether you are a beginner or an advanced programmer, you 
will find numerous articles of interest, ready to type into your 
computer, games and applications designed to help you get more 
from your investment, and helpful hints and utilities to help you 
better understand your Atari. 

If you already have COMPUTEl's First and Second Books of 
Atari, you know just how valuable they are — how often you open 
the books to look up the information you need to meet your own 
programming challenges. However, if this is your first 
COMPUTE! book, you're in for some pleasant surprises. 
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- Exponents 



Matt Giwer 



The exponential operator, a, can be made accurate and useful. Here's how. 

The exponential operator, a, performs a very standard mathemat- 
ical function, although if you are not familiar with mathematics 
you may not be aware of its potential. Also, there is another byte- 
saving use that I will save for the end. 

The key to making full use of A is to realize that in mathemat- 
ical notation the square root of four is the same as four to the one- 
half power. In BASIC you can write either SQR(4) or 4a(1/2). So 
what good is that? Well, you might want to do a cube root, which 
would be 8a(1/3). Get the idea? Not believing that this works, you 
might have tried it by now and have noticed that the machine 
insists that 4a (1/2) is not2but rather 1.998... something. It seems 
strange to accept a wrong answer from a very slow function. 

To correct for this inaccuracy, we simply write the instruction 
INT (4a(1/2) + 0.01), and this will return the number 2. In return 
for this inaccuracy we get the ability to calculate very unusual 
powers and roots. The above could have been written 4a0.5 and 
the same answer returned. We could just as easily have written 
4 A 0.4321 or 2 A 2.223 and have gotten an answer correct enough for 
many calculations. Also, those complex problems such as two to 
the five-thirds power 2a(5/3) can be calculated with ease. So not 
only can we do the more common cube roots by using a (1/3), but 
we can now also do an entire range of mathematical functions. 

It is not only faster but more accurate to write 2*2 rather than 
2 A 2. If we are not doing mathematics, how do we make use of 
this? How about instead of writing a byte-consuming timing loop 
for a beep, we simply write A = 1 a1? If the beep should last longer, 
then there is always A = IaI aIaIaIaI, etc. It takes quite a while 
before this simple statement equals the number of bytes 
consumed by a timing loop. Thus the major drawback to more 
frequent use of a can be turned to our advantage. 
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Reading the 
Keyboard Codes 



Orson Scott Card 



By reading the Atari keyboard directly, you can get almost any key to 
perform like a function key — without changing any of the regular uses of 
the keyboard. 

Whenever you press a key on your Atari keyboard, a number is 
stored at location 53769 in memory and, in most cases, in a 
shadow register at location 764. That number is the keyboard code 
for the key, or combination of keys, you pressed. 

Unfortunately, that number has no relation at all either to 
ATASCII character code or to the Atari's internal character code. 
So most programmers ignore the keyboard code (KEYCODE) and 
let the operating system translate the keyboard code into ATASCII 
form. 

You can use the KEYCODE, however, to get some interesting 
results: 

Speed. Picking up the keyboard code at 53769 or 764 can save 
you time, especially when you're working in machine language. 
For one thing, you completely short-circuit the "debounce" 
routine that makes the computer wait for a while before repeating 
a key that is being held down continuously. If the key is down, it's 
down, and you can read the value at once. That can be a disad- 
vantage if you have a touch-typing program, but it can be a great 
help if you want instant repetition of a key. 

Customization. You can set up your computer, with soft- 
ware, to read the keys any way you like. This article, for instance, 
includes a program to make your computer read the keyboard 
according to the Dvorak pattern instead of the standard Qwerty 
layout. Also, you can set up your own system for shift-locking the 
keyboard. You don't have to follow the standard computer system 
of locking and unlocking only the alphabetic characters when you 
press SHIFT-CAPS/LOWR, CONTROL-CAPS/LOWR, or CAPS/ 
LOWR alone. You can make the entire keyboard lock and unlock, 
or have the nonalphabetic characters lock independently of the 
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alphabetic characters, by pressing SHIFT-ESCAPE or CONTROL- 
ESCAPE, for instance. 

Range. Perhaps the most exciting advantage of working with 
the keyboard code is the great range of values it offers you. Every 
key on the keyboard except SHIFT, CONTROL, BREAK, START, 
SELECT, OPTION, and RESET produces its own unique 
KEYCODE number. Holding down SHIFT while depressing 
another key produces that same number plus 64. Holding down 
CONTROL produces that number plus 128. And, except for 11 
keys (16 for XL users), holding down both SHIFT and CONTROL 
produces that number plus 192. 

This means almost every key has four possible values — even 
RETURN and ESC and SPACE, which the computer usually treats 
the same regardless of whether SHIFT or CONTROL is pressed. 
There are 52 keys on old Ataris and 57 keys on XL models that put 
numbers in location 53769. That gives you 197 unique signals 
from your keyboard (212 if you use an XL model). 

Yet there are only 128 valid ATASCII codes (values 128-255 
are merely inverse characters). You are left with 68 (or 84) possible 
key combinations that ATASCII doesn't need to use. If you were 
creating a word-processing program, you could print every single 
character, including graphics characters, and still have 68 
commands left over — without ever reaching for the console keys. 

The Three Atari Character Codes 

The Atari Operating System (OS) uses three different codes for 
character values: ATASCII, Internal Code (ICODE), and Keyboard 
Code (KEYCODE). Each has a specific use, and most of the time, 
the OS handles all the conversions from one to another so quickly 
that you don't even notice it's going on. 

In order to use KEYCODEs effectively, you need to have a 
clear idea of the differences among the three codes and their rela- 
tionship to each other. So let's review the function of each of the 
character codes. 

ATASCII. This is the code used by BASIC. All the alphanu- 
meric characters (letters and numbers) and symbols follow the 
standard ASCII code recognized by most computers. The rest of 
the ATASCII codes are used for graphics characters. For instance, 
in ATASCII, the letter A has the value 65. 

The following commands and functions use the ATASCII 
number: 
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CHR* (ATASCII) 

OPEN #1,4,0, "K:": BET #1, ATASCII 

ATASC 1 1 =PEEK < 763 ) 

ATASCII=ASC("A" ) 

GRAPH I CS 1 : COLOR ATASC 1 1 : PLOT I , I 

(Special ATASCII code conversions are used in GRAPHICS 1 and 
2, but for values 32-95, the regular ATASCII values will PLOT in 
Color 1 — color register 0.) 

Internal code. This is the code used by the operating system 
to put characters on the screen. The ICODE (internal code) 
number represents the character's position within the ROM char- 
acter set. The first character in the ROM character set is the blank 
(space) character. It has the ICODE number 0. The character A is 
in position 33 in the character set, so its ICODE number is 33. 

The ICODE number is used twice. First, when you type or 
PRINT a character on the screen, the OS converts the ATASCII 
value into the ICODE value and stores the ICODE value in screen 
memory. Second, the ANTIC chip, which scans screen memory 
60 times a second, reads the ICODE value stored there and uses it 
to count a certain number of steps into the ROM character set. 
Since it takes eight bytes to contain each character pattern in the 
ROM set, ANTIC counts 8*ICODE bytes into the character set to 
find the beginning of the pattern. 

So when you type the letter A, the OS stores the number 33 
in screen memory. ANTIC finds that 33 and multiplies it by 8, 
which results in the number 264. ANTIC then goes to the char- 
acter set and counts in until it finds byte 264. This is the first byte 
of the pattern for the character A. ANTIC uses that byte, along 
with the next seven bytes, to tell the TV screen what to display. 

You will use ICODE values for the same purpose the OS uses 
them — to POKE characters directly into screen memory and to 
find a character's pattern within the character set. 

Keyboard code. This is the number generated by the circuits 
in your keyboard when you press a key (see Table 1). The combi- 
nation of open and closed circuits from the keyboard causes a 
KEYCODE (keyboard code) number to be stored in location 
53769. This number is then read by the OS and stored at 764, 
where it is picked up and converted into an ATASCII value which 
is stored in location 763. 

The keyboard code is never used anywhere else, but there are 
still several things you can do with it. By POKEing character 
codes into location 764, you can fool the OS into thinking that a 
particular key has been pressed. Then, when your program GETs 
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Table 1. Keyboard Codes 



Unshifted Keyboard Values 

ESC1234567890<> DEL 
28 31 30 26 24 29 27 51 53 48 50 54 55 52 

TAB QWERTYUI OP - = RETURN 
44 47 46 42 40 45 43 11 13 8 10 14 15 12 

ASDFGHJKL; + * CAPS/LOWR 
63 62 58 56 61 57 1 5 2 6 7 60 
Z X C V B N M , . / Atari logo 
23 22 18 16 21 35 37 32 34 38 39 
SPACEBAR Fl F2 F3 F4 HELP 
33 3 4 19 20 17 

Keyboard Values with SHIFT* 

ESC 1234567890< > DEL 
92 95 94 90 88 93 91 115 117 112 114 118 119 116 

TAB QWERTYUI OP - = RETURN 
108 111 110 106 104 109 107 75 77 71 74 78 79 76 

ASDFGHJKL; + * CAPS/LOWR 
127 126 122 120 125 121 65 69 64 66 70 71 124 
Z X C V B N M , . / Atari logo 
87 86 82 80 85 99 101 96 98 102 103 
SPACEBAR Fl F2 F3 F4 HELP 
97 67 68 83 84 81 

Keyboard Values with CONTROL* 

ESC 1234567890 < > DEL 
156 159 158 154 152 157 155 179 181 176 178 182 183 180 

TAB QWERTYUI OP - = RETURN 
172 175 174 170 168 173 171 139 141 136 138 142 143 140 

ASDFGHJKL; + * CAPS/LOWR 
191 190 186 184 189 185 129 133 128 130 134 135 188 
Z X C V B N M , . / Atari logo 
151 150 146 144 149 163 165 160 162 166 167 
SPACEBAR Fl F2 F3 F4 HELP 
161 131 132 147 148 145 

Keyboard Values with SHIFT and CONTROL 

ESC1234567890< > DEL 

220 223 222 218 216 221 219 243 245 240 242 246 247 244 

TAB QWERTYUI OP - = RETURN 
236 239 238 234 232 237 235 203 205 200 202 206 207 204 

ASDFGHJKL; + * CAPS/LOWR 
255 254 250 248 253 249 252 

Z X C V B N M , . / Atari logo 
227 229 224 226 230 231 
SPACEBAR Fl F2 F3 F4 HELP 
225 



'Eleven keys cannot be read with SHIFT and CONTROL pressed: J, K, L, ;, +,*, Z, X, C, 
V and B (and Fl, F2, F3, F4, and HELP on XL models). 
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the latest key pressed or executes an INPUT statement, it will 
think the key you specified was pressed. 

You can also change the way the computer thinks the keys 
are laid out. For instance, you might want to try the Dvorak 
keyboard. The Qwerty keyboard (the one your computer comes 
with) was deliberately designed to be inconvenient and slow. Back 
when mechanical typewriters were first used, quick typists kept 
jamming the keys. So the Qwerty keyboard puts the most 
commonly used letters off the home keys or on the left side, where 
most typists will have a harder time getting to them. Computer- 
ized keyboards are faster now, and the Dvorak keyboard is 
designed to take advantage of that. The most commonly used 
characters are on the home keys. And you can learn the Dvorak 
system by making your Atari read the keyboard in the Dvorak 
pattern, just by reconfiguring the relationship between 
KEYCODE and ATASCII. 

You can also use the keyboard codes to get input from the 
keyboard directly, bypassing the OS's formulas for conversion. 
That's the use we'll pursue in the rest of this article. 

Exceptions to the Rules 

SHIFT-lock. It is important to remember that the number 
stored at 53769 and shadowed at 764 is the value of the key combi- 
nation actually pressed. It is not affected at all by whether the 
keyboard is SHIFT-locked or CONTROL-locked. 

When the Atari powers up, the keyboard is locked into the 
alphabetic shift mode — when you press any letter key, with or 
without pressing SHIFT at the same time, the shifted value 
appears on the screen. But as far as locations 53769 and 764 are 
concerned, if you don't press SHIFT, the unshifted value is all it 
gets. 

The way the operating system handles SHIFT-lock and 
CONTROL-lock is simple — you can imitate this in your own 
programs. When the CAPS/LOWR key is pressed, the operating 
system changes the SHIFT-lock flag at location 702. If the CAPS/ 
LOWR key is pressed by itself, is stored at 702; if SHIFT and 
CAPS/LOWR are pressed together, 64 is stored there; and if 
CONTROL and CAPS/LOWR are pressed together, 128 is stored 
there. From then on, if the key pressed calls for an alphabetic 
(letter, rather than number or symbol) character, the operating 
system checks location 702 and adds the number stored there to 
the offset into the Key Definition Table. Programs 1 and 2 both 
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perform a customized version of this function, by-passing the 
operating system entirely. 

XL models. XL models (Atari 600XL, 800XL, 1200XL, 1400XL, 
and 1450XL) allow you to lay out your own Keycode Definitions 
Table (essentially what the programs in this article do with the 
array AC («)), and inform the operating system by POKEing the 
address of the table, low byte first, into locations 121 and 122 ($79 
and $7 A). The table is set up exactly like the ATASCH array — you 
could use the DATA statements, converting them from ICODE to 
ATASCII order, to set up the table for the XL redefinition. 

The XL models also allow you to redefine the Yn and SHIFT- 
Fn keys separately, without redefining the entire keyboard, by 
setting up an eight-byte table and POKEing its address, low byte 
first, into locations 96 and 97 ($60 and $61). 

However, this system of keyboard redefinition still leaves you 
with the OS's system of interpretation, which ignores all SHIFT- 
CONTROL and all CONTKOL-number key combinations. To really 
take advantage of the power of the keyboard code, you need to set 
up your own interpretation system as well. 

Missing SHIFT-CONTROL combinations. Eleven keys — 16 
on XL models — return no value to location 57369 if both SHIFT 
and CONTROL are pressed at the same time: J, K, L, ;, + , *, Z, X, 
C, V, and B on all Ataris, and Fl, F2, F3, F4, and HELP on XL 
models. It is as if those key combinations did not exist. 

Interrupts. Most of the time, whatever number is stored in 
location 53769 is also stored at 764. There are exceptions when the 
key combination is acted on during an interrupt. The CONTROL- 
1 combination, for instance, is read during an interrupt and can't 
be read from 764 — but the value still occurs at location 53769 and 
can be read there. On XL models, CONTROL-F1, CONTROL-F2, 
CONTROL-F4, and HELP SHIFT-HELP and CONTROL-HELP 
also generate codes that are not transferred from 53769 to 764. 

What difference does this make? If you want to be able to 
read that code in spite of the interrupt, you can — by reading 53679 
instead of 764. The interrupt will still take place, but your program 
will also "know" that the key combination was pressed. Or if you 
want your program to ignore keys used by the interrupts, read the 
values at 764 instead of 53769. 

Here is a short program that reads the hardware register and 
POKEs the raw KEYCODE number into screen memory. First, 
you will see that the KEYCODE number has no relation to the 
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ICODE number that normally is POKEd into screen memory. 
Second, since the PRINT command isn't being used, the 
CONTROL-1 key has no effect at all— and its KEYCODE number 
is POKEd into screen memory, where it appears as an inverse 
question mark. If you have an XL model, you will see that 
pressing CONTROL-F4 still toggles between the standard and 
international character sets — but it also causes an inverse 4 to 
appear on the screen. 

10 POKE PEEK ( 88 ) +256 * PEEK ( 89 )+N, PEEK (53769) 
20 N=N+1-960*(N>958) : SOTO 10 

Built-in delay. There is a slight but measurable time lag 
between the keypress causing a number to be stored at 53769, 
and the echo getting stored in 764. Here is a very short 
example program that will show you these codes: 

10 PRINT PEEK(764>;" " ; PEEK (53769) 
20 FOR 1=0 TO 40: NEXT I: GOTO 10 

This program PRINTs the value at 764 on the left and the value at 
53769 on the right. If you RUN this program and then type very 
quickly, you will sometimes see a number appear on the right that 
has not yet appeared on the left — you have caught the OS 
between receiving the KEYCODE at 53769 and echoing it at 764. If 
your program needs speed (particularly if it is a machine language 
routine), you'll definitely want to read the keyboard code at 53769. 

ATASCII-ICODE Conversions 

Actually since ATASCII and ICODE have a regular relationship, 
conversions back and forth are quite simple. Subroutine 1 
converts the ATASCII number AC(N) to ICODE and assigns the 
value to IC(N): 

Subroutine 1. ATASCII to ICODE 

800 VERS=0: IF AC > 127 THEN VERS=1 : AC=AC-128 
810 IF AC<32 THEN IC=AC+64+128*VERS: RETURN 
820 IF ACX96 THEN IC=AC-32+128*VERS: RETURN 
830 IC=AC+128* IV: RETURN 

When you jump to this subroutine, the variable AC must contain 
the ATASCII value of the character you want converted to ICODE. 
When you return from the subroutine, the variable IC will contain 
the ICODE value. You can POKE it to screen memory: POKE 
PEEK (88) + 256*PEEK(89) + OFFSET,IC. 

Subroutine 2 converts from ICODE to ATASCII: 
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Subroutine 2. ICODE to ATASCII 

200 IV=0: IF IC>127 THEN IV=i : IC=IC-128 
210 IF ICX64 THEN AC=IC+32+ 123* IV: RETURN 
220 IF IC<96 THEN AC=IC-64+ 128* IV: RETURN 
230 AC=IC+128*IV: RETURN 

When you GOSUB to this routine, the variable IC contains the 
ICODE value of the character you want converted. When you 
return from the subroutine, the variable AC will contain the value 
that, when PRINTed, will cause the character to be displayed. 

In both subroutines, the variable IV is used to keep track of 
whether the character was inverse or not. Note that you cannot 
change the order of these lines. If 220 is executed before 210, or 
120 before 110, the results will be wrong. 

The Keyboard Code Array 

Since KEYCODE doesn't have a systematic relationship with the 
other codes, a simple program wouldn't convert to and from 
KEYCODE. A much better solution is to set up a table of ATASCII 
or ICODE values in KEYCODE order, and then use the 
KEYCODE number as a pointer into the table to find the right 
ATASCII or ICODE value. In BASIC, the simplest way of doing 
this is to use the KEYCODE number as the subscript in an array 
containing either ICODE or ATASCII values. (For a complete 
listing of keyboard codes and their relationship to internal code 
and ATASCII, see Appendix A, "A Complete Guide to the Atari 
Character Set.") 

During your program's setup phase, you need to DIMension 
one or both of these arrays: 

DIM IC(255) ,AC(255) 

The elements of this array will be assigned either ATASCII or 
ICODE values, arranged in KEYCODE order. For instance, 
KEYCODE is produced by pressing 1 (lowercase L). Therefore, 
the value of C(0) will be 108 . 

Once the array has been set up, the keyboard can be read 
almost instantly. For instance, to PRINT the last key pressed, 
regardless of what it was or how long ago it was pressed, this 
statement would do: 

PRINT AC (PEEK (764) ) 

We'll go into much more detail about effective use of the keyboard 
codes later on. 
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Assigning values. The way you assign values to this array 
depends on how you want to use the keyboard data. 

KEYCODE 94 is produced by pressing SHIFT-2 (the quota- 
tion mark). If the array has been set up in ATASCII order, the 
value of C(94) will be 34. This is the method you will use if you 
want to PRINT CHR$ (C(KEYCODE)) or create strings. 

If the array has been set up in ICODE order, the value of 
C(94) will be 2. This is the method you will use if you want to 
POKE keyboard input directly into screen memory, to create 
displays without using PRINT or strings. 

The KEYCODE DATA Statements 

Program 1 is the heart of this system. It consists of DATA state- 
ments that contain ICODE values in KEYCODE order. 

Extra key combinations. Zero is used for every KEYCODE 
value that has not been assigned an ATASCII or ICODE value. 
There are many zeros in the DATA statements, even though only 
the space bar should produce a blank, because there are many 
KEYCODE values that have no corresponding ICODE or 
ATASCII values. For instance, SHIFT-RETURN has no special 
ICODE or ATASCII value. If you wanted SHIFT-RETURN to have 
the same value as RETURN, you would assign it the same value 
as RETURN. 

Inverse ATASCII characters. Some ATASCII values are really 
inverse characters. ATASCII 156-159 (usually produced by 
pressing SHIFT-DELETE, SHIFT-INSERT, CONTROL-TAB, and 
SHIFT-TAB) PRINT as nothing more than the inverse of ATASCII 
28-31. ATASCII 253, 254, and 255 (CONTROL-2, CONTROL- 
DELETE, and CONTROL-INSERT) are inverses of ATASCII 125- 
127 (SHIFT-CLEAR, DELETE, and TAB). ATASCII 155 (RETURN), 
if it could be PRINTed as a character, would be the inverse of 
ATASCII 27(ESC). Since all these characters can be obtained by 
PRINTing an inverse of another key combination, they have been 
left as zeros in the DATA statements. (If you want a keyboard code 
to clear the screen or ring the CONTROL-2 buzzer, that can be 
done independently, as will be shown below.) 

Impossible codes. Many of the zeros in the DATA statements 
are there because certain KEYCODE values cannot exist — no 
combination of keys will result in that particular number. The 
impossible codes on non-XL Ataris are 3, 4, 9, 17, 19, 20, 25, 36, 
41, 49, and 59 — and those numbers plus 64, 128, and 192. Since 
the DATA statements are arranged in KEYCODE order, the 
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impossible codes are represented by zeros just to keep the array in 
order. If your computer is an XL model, 3, 4, 17, 19, and 20 repre- 
sent Fl, F2, HELP, F3, and F4, and can be read in any combination 
except SHIFT-CONTROL. 

Assigning Values to the Array 

Program 1 includes all the DATA statements needed to set up 
arrays AC(n) and lC(n). By removing the word REM in front of the 
subroutine calls, you can create a disk file containing the array, or 
load the data from the disk file into the array. Or you can simply 
add these DATA statements to a program. 

Using the Keyboard Code in a Program 

Once the array is set up, reading the keyboard code is very 
simple. You can use it directly, of course, by putting it in a func- 
tion: 

PRINT CHR* (PEEK (53769) ) 

However, this does not begin to use the freedom the keyboard 
code gives you. 

Is a key pressed? First, if your keyboard read routine is 
complicated at all, you will want to avoid going through it when 
there is nothing to read. In the main loop of your program, the 
test can be as simple as this: 

ON PEEK (753) <>3 60SUB 500 

Location 753 is set to 3 every time a key is pressed. If a key is not 
pressed, it decrements (decreases in value by 1) every 1/60 second 
until it reaches zero. If a key is pressed and held down, 753 will 
continue to equal 3. So your program will GOSUB to your 
keyboard read routine only when a key is pressed. 

Locking character sets. The CAPS-LOWR key usually affects 
only the alphabetic character keys. To get the % character, you 
have to press SHIFT-5, regardless of whether the alphabetic keys 
are locked in SHIFT or CONTROL mode. The subroutine below, 
however, will automatically lock all the keys in one mode or 
another. 

2500 N=PEEK (53769) :S=INT(N/64) :KEY=N-S*64 

2510 IF KEY=60 THEN BH I FT=S*64: RETURN 

2530 IC=IC(KEY+SHIFT) : AC=AC (KEY+SHIFT) 

2540 POKE W, IC: W=W+l-960* (W=959) : RETURN 

Line 2500 sets up three useful variables. N holds whatever value 
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was in 53769. S tells us, in effect, whether SHIFT, CONTROL, or 
both were also pressed. If S = 0, then neither was depressed; if 
S = 1, then SHIFT; if S = 2, then CONTROL; if S = 3, then both. 
KEY tells us which actual key was depressed, regardless of 
whether SHIFT or CONTROL was depressed. 

In line 2510 the program determines whether KEY was the 
CAPS-LOWR key, whose code is 60. If it was, then the variable 
SHIFT is set at 0, 64, 128, or 192, depending on whether SHIFT or 
CONTROL was depressed. Since CAPS-LOWR is not a printing 
character, the subroutine returns at this point. 

In line 2530, IC and AC are set at the ICODE and ATASCII 
equivalent, not of KEY, but of KEY + SHIFT. Whatever value 
SHIFT was last given by line 2510 is automatically added to the 
absolute value of whatever key was depressed. Now if the 
program should print AC or POKE IC onto the screen, it would 
give either its shifted, control, or unshifted value, depending on 
the value of SHIFT, regardless of whether SHIFT or CONTROL 
was pressed when the key was entered. 

In line 2540, IC is POKEd into location SC + W, which repre- 
sents a position in screen memory. (SC = lowest address of screen 
memory; W = current location above SC.) Then W is incremented 
(increased by 1). If W is at 959, so that incrementing it would take 
us off the bottom of the screen, the program subtracts 960 and 
starts us at the upper left-hand corner again. 

Inverse mode. Right now there's no way to print inverse 
characters. So let's add a line to take care of that. 

2505 IF KEY=39 AND S>0 AND S<3 THEN I V=12B* <S=2) : 
RETURN 

We also need to change line 2530: 

2530 I C= I C ( KE Y+SH I FT+ I V ) : AC= AC ( KEY+SH I FT+ I V ) 

Now when you press the Atari logo key at the same time you 
press CONTROL, the entire keyboard shifts into inverse mode. 
Press SHIFT and the Atari logo key and the keyboard shifts back 
into regular mode. But when you press the Atari logo key by itself 
or with both CONTROL and SHIFT, there is no effect on inverse 
mode at all. 

Multiple meanings. When you press the arrow keys when 
the keyboard is locked into the control mode, you'll notice that the 
arrows appear on the screen, and the cursor does not move. This 
is because the program is POKEing the ICODE values into screen 
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memory. If the program were PRINTing the ATASCII values, the 
cursor would have moved. 

But you can still use the cursor keys, just as you always have, 
along with the SHIFT-CLEAR key, by adding these lines: 

2520 ON S SOTO 2800,2850,2900 

2800 IF N=125 THEN PRINT CHR$(AC(N)> 

2810 RETURN 

2850 H=(KEY=7)-CKEY=8) : V=40* ( <KEY=14> - (KEY=15) ) : 

W=W+H+V 

2860 IF W<0 THEN W=W+960: RETURN 

2370 IF W>959 THEN W=W-960 

2880 RETURN 

2900 REM This command line is executed if 

SHIFT-CONTROL are pressed 

2910 RETURN 

Notice that in line 2520 the program uses a GOTO instead of a 
GOSUB. This means that the RETURN at the end of each of these 
subroutines will take us back, not to the statement immediately 
following the branch in line 2520, but to the main loop of the 
program. If we did not do this, every command would also result 
in a blank being displayed on the screen. 

More Commands Than You Can Use 

Remember when I said that we would have 68 command charac- 
ters? Now you can see that we could just as easily have 140 
command characters. That is because, by using the CAPS-LOWR 
key the way we do, all the printable values of each key can be 
displayed on the screen without pressing SHIFT or CONTROL 
each time. Then if the user does press SHIFT or CONTROL or both 
with a character, we can interpret that separately as a command. 

Naturally few programs would ever need 140 command 
characters. And a word processing program would do much 
better to interpret keys pressed with SHIFT as characters rather 
than commands — typists would hate having to use CAPS-LOWR 
every time they wanted a capital letter or a shifted symbol. 

But using the keyboard codes, you have the freedom to 
design your own keyboard system, to respond to the exact needs 
of your own program. You could design a word processor that 
used a keyboard layout different from the standard Qwerty or 
you could simply speed up the key repeat. You could also use a 
section of the keyboard as a game controller with continuous 
commands — as long as a key was held down, it would continue 
to repeat its function. You could read the keyboard as an organ, 
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shifting back and forth between different banks of keys with 
different stops set. 

The Dvorak Keyboard 

One thing you might want to try is the Dvorak keyboard 
(Program 2). In this program, the DATA sets up the arrays so the 
keyboard is interpreted according to the Dvorak keyboard instead 
of the Qwerty keyboard (see Table 2). By using this table with 
your own keyboard reading program, you could train yourself to 
type with the much faster Dvorak keyboard arrangement. 

Table 2. Dvorak Keyboard Codes 

Unshifted Keyboard Values 

ESC1234567890<> DEL 
28 31 30 26 24 29 27 51 53 48 50 54 55 52 

TAB / , . PYFGCRL - = RETURN 
44 47 46 42 40 45 43 11 13 8 10 14 15 12 

AOEUI DHTNS + * CAPS/LOWR 
63 62 58 56 61 57 1 5 2 6 7 60 
; QJ KXBMWVZ Atari logo 
23 22 18 16 21 35 37 32 34 38 39 
SPACEBAR Fl F2 F3 F4 HELP 
33 3 4 19 20 17 

Keyboard Values with SHIFT 

ESC1234567890< > DEL 
28 31 30 26 24 29 27 51 53 48 50 54 55 52 

TAB? [ ] PYFGCRL - = RETURN 
44 47 46 42 40 45 43 11 13 8 10 14 15 12 

AOEUI DHTNS + * CAPS/LOWR 
63 62 58 56 61 57 1 5 2 6 7 60 
: QJ KXBMWVZ Atari logo 
23 22 18 16 21 35 37 32 34 38 39 
SPACEBAR Fl F2 F3 F4 HELP 
33 3 4 19 20 17 



See Table 1 . 



See Table 1 . 



Keyboard Values with CONTROL 
Keyboard Values with SHIFT and CONTROL 



Note: The Dvorak keyboard calls for the single and double quotation marks to be just to 
the right of the L key and the hyphen and underline characters to be just to the right of the 
S key. The preceding table does not show this because those keys are used for arithmetic 
functions on the Atari keyboard, and most users would probably prefer to leave those 
keys as they are. 
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Debounce routine. Line 100 contains a homemade debounce 
routine. When you type, your finger remains on the key for a frac- 
tion of a second. If the program reads the keyboard again before 
you lift your finger, the key will repeat — even though you might 
not want it to. The debounce routine checks to see if the value it 
just got from the keyboard is the same as the last one it got. If not, 
a new key has been pressed and the program goes on. But if the 
keys are the same, the counter X is incremented by one. If X is less 
than 4, the key will be ignored; if it is greater than 4, it is assumed 
that the typist meant the key to repeat. 

By changing the 4 to some other number, you can change the 
time lag between holding down a key and getting it to repeat on 
the screen. Or you could write a routine that would cause the 
cursor control keys to repeat without a much shorter debounce 
delay than the other keys. 

Because this routine is written in BASIC, it has another 
problem — it's possible for you to type so quickly that you press 
one key and then go on and press another key before the program 
ever reads the first key's value. You can solve the problem by 
writing in machine language. Or you could write just your 
keyboard reading routine in machine language and run it in an 
interrupt, have that routine store the characters typed into a 
buffer, and let your BASIC program read the keyboard input from 
the buffer at its own speed. Or you could compile your BASIC 
program so it ran faster than people could type. But the more 
commands you have to check for with each letter typed, the 
slower your BASIC program will run, and the more keystrokes 
you'll lose because of slow program execution. 

SHIFTing. This program improves on the way Program 1 
handles the SHIFT key Instead of simply ignoring the SHIFT and 
CONTROL keys except when CAPS/LOWR is pressed, Program 
2 pays attention to SHIFT. If the keyboard is locked into SHIFT or 
CONTROL, pressing the SHIFT key has no effect. If the keyboard 
is locked into lowercase (that is, if you pressed CAPS/LOWR by 
itself), then pressing the SHIFT key with another key will cause 
that letter, and only that letter, to be shifted — just like the standard 
typewriter keyboard. 

This is handled in line 105, when S is set to equal INT(K/64). 
In effect, this makes S equal 1 if SHIFT is pressed, 2 if CONTROL 
is pressed, 3 if both are pressed, and if neither is pressed. Then, 
in line 120, N is set back to the value of K, the original keystroke 
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combination, if SHIFT was pressed. This by-passes the locked 
value of the variable SHIFT for one keystroke only. 

It would be a simple matter to adapt this program so that if 
the keyboard is locked into SHIFTed condition, pressing the 
SHIFT key and another key would cause the program to display 
the lowercase, unshifted value of that key. Or you could write a 
routine that would allow you to lock and unlock the number keys 
into shifted and unshifted condition separately from the rest of 
the keyboard. 

POKEing to the screen. This program pretends to be a 
typing program, since lines 200 and 205 POKE the letters directly 
into screen memory. Each time a character is POKEd into 
memory, the pointer variable E is incremented by one so that the 
next character will be placed just to the right of the character 
before. 

An alternative would be to replace ICODE screen POKEing 
with ATASCII PRINT statements. Delete lines 200 and 205 and 
replace them with 

200 PRINT CHR$(AC<N) ) +VERS 

Now the editing functions will work and the screen will scroll 
when you reach the bottom. 

These programs, while not especially useful in themselves, 
should give you a pretty good idea of some of the possibilities that 
are opened up to you if your programs read the keyboard directly. 
Whenever you write a program that relies heavily on keyboard 
input, you should give serious consideration to having your 
program read the keyboard independently — it might allow you to 
add refinements to your program that make it more powerful or 
useful to the user. 

Program 1. Standard Array 

5 DIM IC (255) , AC (255) : SC=PEEK (88) +256*PEEK(B 

9) :SHIFT=64: VERS=0 
10 SOSUB 500:REM H:fcfc»gHB»M:Jd:H3»:1:l:T:l';.-»d:I.- 



DHIH 5THTEMENT5 



USE THIS TO CREATE ■■ 



15 REM GOSUB 600: REM 
20 REM GOSUB 700: REM 



USE THIS TO CREATE ARRl 



Y5 FROM DI5KFILE "DiKEYCODE.DAT" 



100 POKE 694,0:DN PEEK(753)<>3 GOTO 100:K=PE 
EK (764) 
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Program 2. Dvorak Array 



5 DIM IC <255) , AC <255) :SHIFT 

K (8B) +256* PEEK (89) : E=0 
10 BOSUB 500: REM 



=64: VERS=0: BC=PEE 



THIS HILL CRERTE RRRRYS FRi 



M DflTR 5TRTEMEHT5 



USE THIS TO CRERTE "D: 



15 REM BOSUB 600:REM 
mil:T:1»l»T:l*U 



20 REM BOSUB 700: REM 



USE THIS TO CRERTE RRR 



YS FROM DTSKFILE " D : DMORRK . DHT" 



100 POKE 694,0: ON PEEK (753) <>3 BOTO 100:P=PE 
EK(53769):IF P=K THEN X=X+1:IF X<4 THEN 
100 

105 X=0:K=P:S=INT(K/64) :N=K-64*S 

110 IF N=60 THEN SHIFT=64*S 

115 IF N=39 THEN VERS= 1 28 * ( VERS< > 1 28 ) 

120 N=N+SHIFT:IF S=l THEN N=K 

200 POKE SC + E, IC (N) +VERS 

205 E = E+l-960* (E>958) 

210 BOTO 100 

500 RESTORE 1000:FOR 1=0 TO 191 



READ N: 

=N:NEXT I : FOR 1=192 TO 255:IC(I)=0: 
I 

510 FOR 1=0 TO 255:N=IC(I) 

520 IF N<64 THEN AC ( I ) =N+32 

530 IF N>63 AND N<96 THEN AC ( I ) =N-64 

540 IF N>95 THEN AC ( I ) =N 

550 NEXT I 

560 RETURN 

600 OPEN #4, 8, 0, "D: KEYCODE. DAT" 

605 RESTORE 1000:FOR 1=0 TO 191:READ 
4, N: NEXT I 

610 FOR 1=192 TO 255:PUT #4,0:NEXT I 

615 CLOSE #4:RETURN 

700 OPEN #4, 4, 0, "D: KEYCODE. DAT" 

705 FOR 1=0 TO 255:GET #4,N:IC(I)=N 

710 IF N<64 THEN AC ( I ) =N+32 

715 IF N>63 AND N<96 THEN AC ( I ) =N-64 

720 IF N>95 THEN AC(I)=N 

725 NEXT I:RETURN 

1000 DATA 110,104,115,0,0,116,11,10 
1008 DATA 114,0,108,103,0,99,13,29 
1016 DATA 107,0,106,0,0,120,113,27 
1024 DATA 20,0,19,22,91,21,18,17 
1032 DATA 119,0,118,98,0,109,122,0 
1040 DATA 112,0,14,102,127,121,12,15 
1048 DATA 25,0,16,23,126,24,28,30 
1056 DATA 117,100,101,0,0,105,111,97 
1064 DATA 46,40,51,0,0,52,60,62 



IC ( I ) 
NEXT 



N:PUT # 
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1072 DATA 50,0,44,39,0,35,63,124 

1080 DATA 43,0,42,0,0,56,49,26 

1088 DATA 4,0,3,6,0,5,2,1 

1096 DATA 55,0,54,34,0,45,58,0 

1104 DATA 48,0,61,38,0,57,59,31 

1112 DATA 8,0,9,7,0,32,125,0 

1120 DATA 53,36,37,0,0,41,47,33 

1128 DATA 76,74,123,0,0,75,94,95 

1136 DATA 79,0,80,85,0,73,92,93 

1144 DATA 86, 0, 67, 0, 0, 66, B8, 90 

1152 DATA 0,0,0,0,0,0,0,0 

1160 DATA 64,0,96,78,0,77,0,0 

1168 DATA 82,0,69,89,0,84,87,81 

1176 DATA 0,0,0,0,0,0,0,0 

1184 DATA 70,72,68,0,0,71,83,65 
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Using the Atari 
Timer 



I Stephen Levy 



Because FORJNEXT loops are not accurate timers, the solution is to 
incorporate Atari's internal counters into programs where you want 
something delayed or timed reliably. 

Have you ever written a program and wanted a specific time 
delay? What did you do? Some of us figured a FOR/NEXT loop 
was the answer, so we set to work with our stopwatches until we 
found that the following takes about three seconds to write 
"STOP": 

10 PRINT "BEGIN" 
20 FOR X=l TO 1000 
30 NEXT X 
40 PRINT "STOP" 

Then we went along and wrote our programs and found that 
our three-second delay had become five, six, or even ten seconds. 
Why? Because the Atari FOR/NEXT loops take longer as you add 
lines of code to the program. 

There is a better way. Yes, machine language routines are 
great for timing on the Atari, especially if you know how to use 
locations 536 to 558 ($218 to $22E). But it can be most discon- 
certing if you allow some of those registers to drop to zero 
unchecked. 

Accurate Delays 

BASIC programmers, there is a way. Use memory locations 18, 19, 
and 20. 

These timers work like the mileage gauge on a car's speedom- 
eter: one counter counts up and then sets the one next to it which, 
in turn, sets the next one. Each counter on the speedometer goes 
up when the one to its right hits ten. In the computer, they count 
up to 255 before going back to zero. 

Register number 20 counts at the rate of 60 numbers per 
second up to number 255, then increments register 19 by one and 
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starts over. When register 19 reaches 255, it increments register 18 
by one. If you POKE zero into all three registers, it will take about 
1092 seconds before a one appears in register 18 (more than 18 
minutes). The table gives some times (it assumes all three regis- 
ters began with zero). Notice that it would take more than 77 
hours for memory location 18 to reach 255. 

Well, how does all this help? Let's look at our short program 
again. We can rewrite it this way: 

10 PRINT "BEGIN": POKE 20,0 
20 IF PEEK (20) < 180 THEN 20 
30 PRINT "STOP" 

This routine will continue to take three seconds no matter 
how long your program. Well, not exactly; since it is written in 
BASIC, the longer the program, the longer the routine will take. 
But the influence of the program length will usually be negligible. 

Included here are three programs which demonstrate a much 
more functional use of this timer. Type in Program 1, leaving out 
the REM statements. This program tells the user the time interval 
between the pressing of RETURN after typing RUN and the 
pressing of RETURN a second time. Notice that if you press 
another key the computer goes back to line 140. 

This short program demonstrates several useful concepts. 
First, the computer is looking for a particular input, in this case the 
RETURN key (ATASCII 155). Second, line 160 PEEKs at registers 
18, 19, and 20. Notice we POKEd location 20 last on line 130 and 
PEEKed at it first on line 160. Third, line 170 contains the impor- 
tant formula for converting the information in locations 18, 19, 
and 20 to seconds. Why 4.267? Because 256 divided by 60 
numbers per second equals 4.267. Fourth, lines 180 to 200 convert 
the total number of seconds to minutes and seconds. 

Program 2 is a bit more useful. It is a timed math quiz in 
which the user is allowed eight and one-half seconds to answer. 
Line 140 is used to check if a key has been pressed. If no key has 
been pressed, then the program goes back to check how much 
time has elapsed. Once a key is pressed, the computer GETs the 
ATASCII code and calls it Al. At lines 160 and 170, Al is 
converted to its CHR$ and placed in its proper place in ANS$. If 
Al equals 155 (ATASCII code for the RETURN key), the program 
moves to line 220, where the value of ANS$ is put into variable 
ANS. 

The final illustration, Program 3, is also a math quiz. In this 
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case the user is given unlimited time. This program combines 
elements of both Programs 1 and 2. 

This Atari timing device should be beneficial whether you 
wish to impose a time limit, simply time answers, or have users 
compete against each other or themselves. The timer has applica- 
tions for both educational programming and games. With some 
experimentation you should be able to adapt this timing device 
for use with your own programs. 



Sample Times 



LOC.20 
60 

60 



100 



100 

21 

42 

84 

176 















LOC.19 



1 

2 

2 

3 

4 

14 

28 

56 

112 

255 

60 











LOC.18 























2 

16 

100 

150 

255 



TIME 
MIN:SEC 

0:01 

0:05 

0:08 

0:10 

0:12 

0:18 

1:00 

2:00 

4:00 

8:00 

18:08 

40:40 

291:17 

1820:35 

2730:52 

4642:29 



Program 1 . Atari Timer 



10 REM ATARI TIMER 

20 REM 

30 REM THIS PROGRAM DEMONSTRATES HOW 

40 REM TO USE ATARI TIMER: 

50 REM ADDRESS 13,19,20 

60 REM IT FIGURES HOW LONG IT TAKES 

7« REM YOU TO PRESS THE <RETURN> KEY. 

80 REM RUN THE PROGRAM THEN PRESS 

90 REM < RETURN > 

100 REM PROGRAM RUNS BETTER WITHOUT 

110 REM REMARK STATEMENTS OR GOTO 120 

120 OPEN #1,4,0, "K: " 

130 FOR 2=1S TO 20:POKE Z,3:NEXT Z 

140 GET #1,D:IF D=155 THEN 160 
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150 GOTO 140 

160 A = PEEK (20) : B=PEEK ( 19) : C = PEEK ( 18) 

17 SEC=INT( (4. 267*25 6*0 + CB*4 . 267) + ( A /60) 

180 MIN=INT (SEC/ 60) 

190 M=MIN*60 

200 SEC=GEC-M 

210 PRINT H I N ; " MINUTES ":SEC;" SECONDS" 



Program 2. Timed Math Quiz 



10 REM TIMED MATH QUIZ 

2 REM 

30 REM THIS IS A TIMED MATH QUIZ 

40 REM CHANGE LINE 130 TO A=l 

50 REM ALLOWS 4 1/4 SECOND 

60 REM A = 2 ALLOWS B 1/2 SECONDS 

70 REM A=3 ALLOWS 12 3/4 SECONDS, ETC. 

30 OPEN #1 , 4, , "K: " : DIM ANS$!10) 

90 PRINT : 1 = I NT ( RND ( vi ) *20 ) : Q2= I NT ( RND ( ) *20 

) : X= 1 
100 PRINT Ql; " + ";Q2;"="; 
110 POKE 18,0: POKE 19,0: POKE 20,0 
120 A = PEEK (19): B = PEEK (20) 

130 IF A=2 THEN 180: REM 3 1/2 SECONDS 
140 IF PEEK (764) =255 THEN 120 
150 GET #1,A1:IF Al=155 THEN 220 
160 ANS$(X,Xi=CHR$(Al) 

170 PRINT AN3$ ( X , X ) ; : X = X + 1 : GOTO 120 
180 PRINT : PR I NT "TIME'S UP" 
190 PRINT "THE ANSWER IS ";Q1+Q2 
200 FOR W=l TO 400: NEXT W 
210 ANS$=" ":GOTO 90 
220 AN3=VAL ( ANS$ ) : PR I NT 
230 IF ANS=Q1+Q2 THEN PRINT :PRINT "CORRECT" 

: GOTO 200 
240 PRINT SPRINT " SORRY " : PR I NT :GOTO 190 



Program 3. Revised Math Quiz 



j. & 

2 

3 
40 
5 
60 
70 

8 

9 



R E M 
REM 
REM 
REM 
R E M 
REM 
R E M 
OPEN 
PR I NT 
) : X = 1 



R EVISED M A T H U I Z 

THIS PROGRAM COMBINES ELEMENTS 
OF PROGRAMS 1 AND 2. 

IT GIVES MATH QUIZ AND TELL HOW 
LONG IT TOOK YOU TO DO EACH 
PROBLEM. 
#1,4, , " K : " : D I M A N S * • ( 1 ) 

Q 1 = I NT ( RND ( ) *20 ) : G2=INT (RND (0 ) *20 
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100 


PR IN 


110 


POKE 


120 


IF P 


130 


GET 


140 


ANS$ 


150 


PR IN 


160 


PR IN 


170 


FOR 


180 


ANS$ 


190 


A = PE 


2 00 


ANS = 


210 


IF A 




: GOT 


220 


PRIN 


230 


SEC = 


240 


MIN = 


250 


M = MI 


260 


SEC = 


270 


IF M 


280 


PRIN 




TO 3 


290 


PRIN 




INT 


300 


GOTO 



T Ql;' ; + " ; 02; " = " ; 

18,0: POKE 19,0: POKE 20,0 
EEK(764)=255 THEN 120 
#1,A1: IF A 1 = 1 5 5 THEN 190 
( X , X ) = CHR$ < Al ) 

T AN3$ « X , X ) ; : X=X+1 : GOTO 120 
T "THE ANSWER IS ";Q 1 .-s-Q2 
W=l TO 1000: NEXT W 
=" ":GOTO 90 

EK (20) : B = PEEK ( 19) : C = PEEK (18) 
VAL (ANS$) : PRINT 

NS = Q1+Q2 THEN PRINT : PR I NT "CORRECT' 
230 

T : PRINT "SORRY" 

INT( <4.25*256*C)+(B*4.25)+(A/60) ) 
INT (SEC/60) 
N*60 
SEC-M 

INO0 THEN 290 
T "THAT TOOK YOU ";SEC; 
00 

T "THAT TOOK YOU ";HIN; 
"AND ";SEC;" SECONDS" 

170 



SECONDS" : GO 
MINUTES" : PR 
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- Blinking Characters 



Frank C. Jones 



Make your messages stand out by having them blink. The technique is 
easy and simple to add to your programs. Once the machine language 
routine is POKEd into memory, the BASIC program can be removed — 
leaving the machine language there to do the work necessary for "Blinking 
Characters." 

The inverse video key on the Atari computer allows messages to 
be displayed in inverse video for special emphasis or eye-catching 
effects. Another, sometimes even more dramatic, method of 
catching the viewer's eye is to have the message flash on and off, 
or blink. There is no simple command in Atari BASIC to produce 
this effect, but the key to producing it lies in the register, main- 
tained by the operating system, called CHACT, decimal address 
755 ($2F3). If bit one in this register is set to one, inverse video 
characters are displayed in inverse video; if it is set to zero, they 
are displayed normally. However, if bit zero is set to one, these 
characters are displayed as blank spaces (inverse video or normal 
blanks depending on bit one). 

Look for a Faster Solution 

With this information we can immediately write a program that 
will produce blinking characters on the screen, as Program 1 does. 
The trouble with this approach is that our BASIC program is 
completely preoccupied with timing loops and toggling bit zero of 
CHACT. If we try to incorporate this routine in a program that 
does anything else, the timing gets very difficult if not downright 
impossible. What we really want is a routine that will sit in the 
background and toggle bit zero of CHACT on a regular basis 
without interfering with any BASIC program that might be 
running at the time. Fortunately, the Atari has in it the resources 
we need to do just this. 

The Atari operating system maintains five separate timers 
that are incremented or decremented during every vertical blank 
period (the period between successive TV picture frames during 
which the screen is dark). Actually, most of them are updated 
only during "second stage" vertical blank; more about this in a 
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moment. One of these, called CDTMV2 ($21A), is a two-byte 
down counter that can be set to any value between 1 and 65535. 
Every sixtieth of a second, during vertical blank, the operating 
system reduces this number by one, and when it counts to zero it 
performs a subroutine jump to the address that it finds in the two- 
byte vector called CDTMA2 ($228) and returns to the operating 
system, waiting for the next time the counter counts down to 
zero. 

Program 2 achieves this result by POKEing a machine 
language program into memory starting at the middle of page 6, 
location 1664 ($680), and transferring control to it via the USR 
function. We use the upper half of page 6 because the lower half 
can be overwritten if an INPUT command receives 128 or more 
bytes at one time. 

Analysis of the Program 

Program 3 is the machine language version of the program that 
does all the work. After setting up the equates that identify the 
various registers in lines 20-40 and starting the assembly at loca- 
tion $680 in line 50, we get down to setting ourselves up in busi- 
ness. Lines 80 to 170 pull the three parameters passed by the USR 
function off the stack and store them in the spaces we reserved for 
them in lines 260, 270, and 280. We will discuss these parameters 
further when we reach the points where they are used. 

Lines 190 to 220 store the address of our routine that does the 
actual blinking in the two-byte vector CDRMA2 in the usual low- 
byte, high-byte order. Lines 230 and 240 take the value of the 
parameter we have called PERIOD and store it in the actual timer 
location CDTMV2. Since this is the value that is decremented 
each sixtieth of a second, it is clear that the parameter PERIOD is 
just what its name suggests: the period, in sixtieths of a second, of 
the blink. With this final act the USR function has completed its 
work, so it returns to BASIC with the RTS at line 250. 

Lines 260 to 280 are the storage locations of the three parame- 
ters PERIOD, MASK, and FLIP; we already have seen the signifi- 
cance of PERIOD. The actual blink routine is simplicity itself. 
CHACT is loaded into the A register (line 300), the value is 
ANDed with the bits in MASK (line 310) to eliminate any bits that 
we do not want, and the remaining bits are exclusively ORed with 
the bits in FLIP (line 320) and restored in CHACT (line 330). We 
can now see the significance of the parameters MASK and FLIP: 
they define the bits of CHACT that we wish to use and toggle. 
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The routine ends by resetting the timer for the next period 
(lines 350, 360) and returning to the operating system vertical 
blank routines. After this, it is ready to wait for PERIOD more 
vertical blanks and then do it all over again. 

The BASIC program that POKEs the machine language into 
place does not have to remain in memory once it has done its 
work. It may be removed with a NEW statement, and a different 
program that uses the blinking characters can be loaded. In fact, 
the call to the USR function in line 30 of the BASIC program may 
be eliminated, and a different program may turn on the blinking. 
Pressing < SYSTEM RESET > will stop the blinking, but another 
caU to USR (1664, PERIOD, MASK, FLIP) will restore it. 

You may experiment with the effect of toggling the various 
bits of CHACT by using different values of MASK and FLIP 
Changing MASK to 23 and leaving FLIP at 1 causes the inverse 
video to remain on during the blanking. If both MASK and FLIP 
are changed to 3, inverse video is on while the characters are 
displayed, but the blanks are normal blanks. Setting both parame- 
ters to 2 produces an alternation between regular and inverse 
video that is quite eye-catching. Finally, setting MASK and FLIP 
to 4 causes an effect that you will just have to see for yourself; I 
still haven't figured out what this is used for, but it is spectacular. 
Of course, PERIOD may be set to any value between 1 and 255 
that you wish to vary the rate with which the characters change. 

Since "second stage" vertical blank routines are suspended 
whenever IO is in progress, you will see that the blinking stops 
during any disk or cassette activity (or anything that uses the 
serial IO bus for that matter). You can achieve some unique effects 
with this short program, and I am sure that many novel programs 
will use this in ways that I have never thought of. 

Program 1 . Blinking Characters 

10 CHACT=755 

20 DELAY=200 

30 PRINT " EaaOE " 

40 FOR 1=1 TO DELAY:NEXT I 

50 POKE CHACT, 

60 FOR 1=1 TO DELAY:NEXT I 

70 POKE CHACT, 1 

B0 GOTO 40 

90 END 

Program 2. Character Blink Routine 

10 FOR 1=1664 TO 1718 
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READ B:POKE I.Bi 



NEXT 
1) 



A = USR ( 1664, 30, 1 

END 

DATA 104, 104, 104, 141, 161,6, 104, 104, 141, 16 

2,6, 104, 104, 141, 163,6, 169, 164, 141, 40, 2, 16 

9, 6, 141 , 41 

DATA 2, 173, 161,6, 141, 26, 2, 96, 0,0,0 

DATA 173, 243, 2, 45, 162,6, 77, 163,6, 141, 243, 

2, 173, 161,6, 141, 26, 2, 96 



Program 3. Machine Language Version 



0010 


; CHARACTER BLINK ROUTINE 


0020 


CHACT 


= $2F3 


0030 


CDTMV2 


= $21A 


0040 


CDTMA2 


= $228 


0050 




*=$0680 


0060 


;PULL PARAMETERS FROM STACK 


0070 


;AND STORE THEM 


0080 




PLA 




0090 




PLA 




0100 




PLA 




0110 




STA 


PERIOD 


0120 




PLA 




0130 




PLA 




0140 




STA 


MASK 


0150 




PLA 




0160 




PLA 




0170 




STA 


FLIP 


0180 


; STORE 


VECTOR 


TO BLINK ROUTINE 


0190 




LDA 


#BLINK&*00FF 


0200 




STA 


CDTMA2 


0210 




LDA 


#BLINK/256 


0220 




STA 


CDTMA2+1 


0230 




LDA 


PERIOD 


0240 




STA 


CDTMV2 


0250 




RTS 




0260 


PERIOD 


* = * + l 


0270 


MASK 


*=* + l 


0280 


FLIP 


*=* + l 


0290 


;HERE : 


tS THE BLINK ROUTINE 


0300 


BLINK 


LDA 


CHACT 


0310 




AND 


MASK 


0320 




EOR 


FLIP 


0330 




STA 


CHACT 


0340 


; RESET 


TIMER AND RETURN 


0350 




LDA 


PERIOD 


0360 




STA 


CDTMV2 


0370 




RTS 
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It is possible to simulate string arrays in Atari BASIC. The illustrations 
here show how. 

"If you want string arrays on your Atari computer, you'll just have 
to purchase Atari's Microsoft BASIC disk." A common belief, but 
not entirely true. You can create a string array using Atari BASIC. 
Microsoft BASIC does make the handling of arrays much easier, 
but it is possible to create a string array in Atari BASIC. 

Creating the Array 

What you will actually be creating is a long string which will hold 
all the elements of the array. In order that the array not have 
garbage in it, we must clean it out before using it. 

There are two ways to clean out the string. The program 
below simply DIMensions a string to 1000 and then fills the string 
with "*" using a FOR/NEXT loop. Then it prints the string. 

1 DIM B * i 1 ) 

1 10 FOR A= 1 TO 1000 

120 B$ (A , A ) = " * " 

130 NEXT A 

1 4 PRINT B * 

The next program does the same thing a little differently and 
much more efficiently. 

10 DIM B * ( 1 3 

110 B*= " * " : Bt ( 1 000 ) = u * " : B* (2) =B* 

120 PRINT B* 

A lot faster, isn't it? You can use this method anytime you want to 
fill a large string with the same character. That is exactly what we 
must do to begin creating our string array. But this time we need 
to fill the string with blanks. 

Enter and RUN the program below. When the program asks 
for names, enter the names of ten friends, pressing RETURN after 
each. The program as written will allow names with up to ten 
letters. 
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100 DIM ARRAY* ( 100) .ELEMENT* ( 10) : PRINT CHR* < 

125) 
110 ARRAY*=" ": ARRAY* ( 100) =" " : ARRAY* ( 2 ) =ARR 

AY* 
120 FOR A=l TO 10 
130 PRINT "NAME FDR ARRAY* ( " ; A ; " ) PLEASE" ; : I 

NPUT ELEMENT* 
140 ARRAY* <A*10-9,A*10) =ELEMENT* 
150 ELEMENT*=" ":NEXT A 
160 PRINT 
200 FOR A=l TO 10 
210 PRINT "ARRAY* < " ; A; " ) IS " ; ARRAY* ( A * 1 0-9 , 

A* 10) : NEXT A 
300 TRAP 340 

310 PRINT :PRINT "GIVE THE NUMBER (1 TO 10)" 
320 PRINT "OF THE ARRAY YOU WISH TO SEE";: IN 

PUT A 
330 PRINT ARRAY* <A*10-9, A*10) : GOTO 310 
340 PRINT CHR* (253) : GOTO 300 

Notice that the program sets up an array with ten elements and 
allows you to pick from any of the ten. Let's look more closely at 
how it is done. 

Line 100 DIMensions the array and clears the screen. Line 
110 fills the array with blanks. Line 120 tells the computer to do it 
ten times. Line 130 gets your input. 

Line 140 is the heart of the creation of the array. Within the 
parentheses the computer is told what part of the string should 
hold your input string ELEMENTS. The first time through A = 1; 
therefore, ARRAY$(A*10 - 9,A*10) will mean ARRAY$(1,10), or 
the first 10 positions in the string. When A = 2, we place 
ELEMENTS in the positions 11 to 20 (2*10 - 9 = 11 and 2*10 = 20). 
We will continue to do this until the string is full. 

Line 210 does the same thing, but in reverse order: it reads 
ARRAYS and prints the proper part to the screen. Line 330 also 
does the same thing, but only for the part of the string you 
request. 

Try this: RUN the program and enter any ten names. Then 
press BREAK. Type PRINT ARRAYS without a line number, press 
RETURN, and see what happens. 

Now RUN the program again, but simply press RETURN 
without entering anything for the names. Notice that there 
appears to be nothing in ARRAYS. That is not really true — it is 
filled with blanks. Type PRINT ARRAYS again and see what 
happens. 
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You might wonder what function lines 300 and 340 serve. 
Those two lines prevent the program from crashing when an 
incorrect INPUT is entered. TRAP 340 sends the program to line 
340 instead of printing "ERROR 8 Line 320" when you enter a Q 
(or whatever) but the program requires a number between 1 and 
10. PRINT CHR$(253) rings the buzzer, just as PRINT CHR$(125) 
in line 100 clears the screen. 

Armed with this little bit of information, you now should be 
able to use string arrays in your own programs. 
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If you've wanted more control over your Atari's sound, here's a solution. 
You can use this program to experiment, to add sound to other programs 
(via the SOUND or POKE instructions), and to govern all four voices 
and all aspects of special effects. 

Sound is one of the most important capabilities of the Atari 
computer. Not only does it permit four-part harmony if you are so 
inclined, but sound is an essential ingredient in games. It trans- 
ports you into the world of the game, filling your ears with the 
sound of a laser cannon, letting you hear force shields as they 
collapse around you. 

Unfortunately, the sound commands are among the most 
difficult to experiment with. The SOUND instruction can some- 
times be clumsy and inconvenient; for one thing, the sounds stay 
on until you turn them off with another SOUND instruction. 
Also, you can't achieve the full range of sound with the BASIC 
instruction, since using it changes any settings in AUDCTL (the 
register which controls sound effects). 

Sound control is a complicated matter, and simple programs 
cannot offer you complete control over the sounds. Joysticks 
couldn't govern four channels with nine registers. 

This program takes a little practice to get used to, but it 
permits total control over all sound registers plus AUDCTL, turns 
the channels on individually, and shuts them all off at once when 
you need silence. When you are satisfied with the sounds, you 
can display the appropriate BASIC statements in either the POKE 
or the SOUND format. 

An Overview 

Lets first briefly summarize the Atari sound system. (For 
complete details, see the Atari Personal Computer System Hardware 
Manual, pages III. 12 through III. 14.) There are four independent 
sound channels whose distortion, frequency, and volume can be 
independently controlled. These are addressed by the SOUND 
instruction with the numbers through 3. The Hardware Manual 
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refers to them as 1 through 4. The sound data can be independ- 
ently POKEd into registers 53760 through 53767. The odd 
numbers control volume and distortion, and the even numbers 
control the frequency. Register 53768 is AUDCTL, which controls 
all of the sound channels in one way or another. If you use the 
BASIC SOUND instruction, any changes you may have made to 
AUDCTL are reset — AUDCTL is set to zero. Thus you do not 
have full control of the sounds with the SOUND instruction. 

This program attempts to give you easy control over all of 
these parameters. Compromises to reduce complexity have been 
made in favor of the notation and numbers used in the SOUND 
instruction. See the BASIC Reference Manual for further informa- 
tion. 

The figure shows the display that you will see upon 
RUNning and entering the commands. The first eight lines, 
numbered B7 through BO, are the bits in the AUDCTL Register. To 
change bit seven to 1, type B7 and RETURN. To change it back to 
zero, type B7 and RETURN again. These are technical changes 
that give no indication of what the new sound will be like. Experi- 
mentation is best. Suffice it to say that using Bl through B4 turns 
on both of the sound channels associated with bit seven. 

To discuss the next five lines of the figure, we have to jump 
down to the lines labeled D: and X: . There are two types of entries 
to make this program, those which are purely commands and 
those which require numbers. If you need to enter a number, 
enter the number first and press RETURN. If it is a pure 
command, simply enter the command and RETURN. If you wish 
to work with sound channel zero, type the following sequence: 0, 
RETURN, REG, RETURN. A will appear after SOUND 
(REG)ISTER on the display. For a pure tone, type 10, RETURN, 
DIS, RETURN, and a 10 will appear after (DIS)TORTION:. Simi- 
larly, 100, RETURN, FRE, RETURN, and 8, RETURN, VOL, 
RETURN, will complete this part of the display. 

To hear this sound, type 0, RETURN, CH, RETURN, and to 
turn it off, type OFF RETURN. To see the POKE values for this 
sound, type PDIS, RETURN, and the list of nine POKEs will 
appear on the screen. Copy these POKEs into your program, and 
you will duplicate the sound that you hear. The top right POKE is 
AUDCTL. The next four rows are channels through 3 — the left 
column is the distortion and volume, and the right is the 
frequency for each channel. 

If AUDCTL is 0— which is the same as bits B0 through B7 
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being all — then the SOUND instruction may be used. To see the 
SOUND instructions, type SDK, RETURN, and the POKEs will 
be replaced with SOUNDs. 

The "force" output is in the odd-numbered POKE registers 
and produces a click from the TV It is turned off and on by use of 
FRC, RETURN. If you have set any of the AUDCTL bits, you must 
use the POKEs to duplicate the sounds. The sound channels must 
be turned on individually by the CH command. OFF turns off all 
channels. If you make a change and want to hear it, type the 
channel number and CH again. This may seem cumbersome, but 
otherwise the sounds would always be on. 



Screen Display 




AUDCTL (REG)ISTER 4 




9 BIT POLY: (B7): 





clock Ch.0w/1. 79 MHz: (B6): 





clock Ch.2 w/1. 79 MHz: (B5): 





clock Ch.1w/Ch.0:(B4): 





clock Ch.3w/Ch.2:(B3): 





clock Ch.O w/Ch.2 HiP: (B2): 





clock Ch.1 w/Ch.3 HiP: (B1): 





15 kHz: (BO): 





SOUND (REG)ISTER 




(DIS)TORTION: 


10 


(FRE)QUENCY: 


100 


FORCE OUTPUT: 





(VOL)UME: 
X: 
D: ?■ 


8 




REG DIS FRE FRC VOL 




OFFCH 




PDIS SDIS POKE 53768; 





POKE 53761, 168 POKE 53760 i 


100 


POKE 53763, POKE 53762, 





POKE 53765, POKE 53764, 





POKE 53767, POKE 53766, 
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80 DIM S (5, 8) , IN* (50) 

90 FOR 1=0 TO 8:FOR J=0 TO 5: S ( J, I ) =0: NEXT J 

:NEXT I 
100 REB=5000: DIS=5100:FRE=5200: FRC=5300: OFF= 
5400 
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102 CLD=5900 : CL X =6000 : V0L=6 100: POKAUD = 6200 : C 

H=6300: START=6400: REGDIS=6500: BUZZ =6600 
104 PDIS=6700:SDIB=68 00: EDIS=6900 
1000 REM DISPLAY 
1002 GRAPHICS 0:PDKE 752,1 

1008 POSITION 2,0:? "AUDCTL (REG)ISTER 4" 
1010 POSITION 2,1:? "{11 SPACES>9 BIT POLY:<B 

7) : " 
1020 POSITION 2,2:? "clock Ch . w/1.79 MHz : ( 

B6) : " 
1030 POSITION 2,3:? "clock Ch . 2 w/1.79 MHz : ( 

B5) : " 
1040 POSITION 2,4:? "<4 SPACES>clock Ch . 1 w/ 

Ch. 0: <B4) : " 
1050 POSITION 2,5:? "<:4 SPACES>clock Ch . 3 w/ 

Ch. 2: (B3) : " 
1060 POSITION 2,6:? "clock Ch . w/Ch.2 HiP:< 

B2) : " 
1070 POSITION 2,7:? "clock Ch . 1 w/Ch.3 HiP:< 

B 1 ) : " 
1080 POSITION 2,8:? "{15 SPACES>15 kHz:(B0):" 
1090 POSITION 2,9:? " {5 SPACES>SOUND (REG)IS 

TER" 
1100 POSITION 2,10:? "{6 SPACES> ( D I S ) TORT I ON 

1110 POSITION 2,11:? " {7 SPACES> ( FRE ) QUENCY : 

■ I 

1120 POSITION 2,12:? "<:6 SPACES>FORCE OUTPUT 

1126 POSITION 2,13:? " < 1 SPACES> ( VOL ) UME : " 

1128 POSITION 2,14:? "X:" 

1130 POSITION 2,15:? " D : " 

1140 POSITION 2,16:? "REG DIS FRE FRC VOL" 

1150 POSITION 2,17:? "OFF CH" 

1160 POSITION 2,18:? "PDIS SDIS" 

1500 GOSUB START 

2000 REM JUMP TABLE 

2008 FOR ZZZ=1 TO 2 STEP 

2010 POSITION 5,15:POKE 752,0:INPUT IN*:POKE 

752, 1 

2020 TRAP 2040: A=VAL < IN*) : TRAP 40000 

2030 POSITION 5,14:? A:GOSUB CLD 

2040 IF INt= ,, REG" THEN GOSUB REG 

2042 IF IN*="DIS" THEN GOSUB DIS 

2044 IF IN*="FRE" THEN GOSUB FRE 

2046 IF IN$="FRC" THEN GOSUB FRC 

2048 IF IN*="OFF" THEN GOSUB OFF 

2049 IF IN*="CH" THEN GGSUB CH 
2058 IF IN*="VOL" THEN GOSUB VOL 
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2060 

2061 

2062 

2063 

2064 

2065 

2066 

2067 

2070 
2072 
2980 
2989 
2990 
5000 
5010 
5020 
5030 
5040 
5088 
5090 
5100 
51 10 
5112 

5120 
5121 
5122 
5123 
5124 
5125 
5126 
5127 
5130 
5140 
5170 
5180 
5190 
5200 
5210 
5218 
5220 



IF IN 
DSITI 
IF IN 
OSITI 
IF IN 
OSITI 
IF IN 
OSITI 
IF IN 
OSITI 
IF IN 
OSITI 
IF IN 
OSITI 
IF IN 
OSITI 
IF IN 
IF IN 
IF FA 
FAIL = 
NEXT 
REM R 
IF A< 
IF A> 
C = A:R 
GOSUB 

sosub 

RETUR 
REM D 
IF A< 



IF 



IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 



IN 

A = 
A = 
A = 
A = 
A = 
A = 
A = 
A = 
POSIT 
S(C, 1 
S(C, 8 
GOSUB 
RETUR 
REM F 
IF A< 
POSIT 
POSIT 



$=» 

ON 

*=" 

ON 

$=" 

ON 

*=" 

ON 

*=" 

ON 

$=» 

ON 
$=■■ 

ON 

*=" 

ON 

*=" 

$=» 

IL = 



ZZZ 

EG 

O 

O 

EM 
RE 
CL 

N 

IS 

O 

T(A 



B7" 
30, 
B6" 
30, 
B5" 
30, 
B4" 
30, 
B3" 
30, 
B2" 
30, 
Bl " 
30, 
B0" 
30, 
PDI 
SDI 
1 T 



THE 



1 : 

TH 
2: 

THE 
3: 7 

THE 
4: ? 

THE 
5: ? 

THE 
6: 

THE 
7: ? 

THE 
8: ? 
S" T 
S" T 
HEN 



S ( 
<4, 
S ( 
<4, 
S ( 
<4, 
S< 
(4, 
S ( 
(4, 
S ( 
<4, 
S ( 
<4, 
S ( 
S(4, 
HEN 
HEN 
GOSU 



4,7 
7) : 
4,6 
6) : 
4,5 
5) : 
4, 4 
4) : 
4,3 
3) : 
4,2 
2) : 
4, 1 
1 ) : 
4, 
0) : 
GOS 
GOS 
B B 



) = NO 
GOSUB 
) = NO 
GOSUB 
) = NO 
GOSUB 
)= NO 
GOSUB 
) = NO 
GOSUB 
)= NO 
GOSUB 
) = NO 
GOSUB 
) = NO 
GOSUB 
UB PD 
UB SD 
UZZ 



T (S (4, 7) ) 

CLD 
T (S (4, 6) ) 

CLD 
T (S (4, 5) ) 

CLD 
T (S (4, 4) ) 

CLD 
T (S <4,3) ) 

CLD 
T (S (4, 2) ) 

CLD 
T (S (4, 1 ) ) 

CLD 
T (S (4, 0) ) 

CLD 
IS 
IS 



: P 
:P 
:P 
:P 
:P 
: P 
: P 
: P 



REGISTER SET 

R A>3 THEN FAIL=1 

R A<4 THEN POSITION 24,9:? A 

S <C, B) 

GDIS 

D:GOSUB CLX 

DISTORTION LEVEL 

R A>14 THEN FAIL=l:GOTO 5180 

/2)-A/2<>0 THEN FAIL=l:GOTO 5 
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2 
4 
6 
8 
10 



THEN 
THEN 
THEN 
THEN 
THEN 
THEN 



D1=0 
Dl=32 
Dl=64 
Dl=96 
Dl=128 
Dl=160 



12 THEN Dl=192 
14 THEN Dl=224 
ION 21 , 10: ? A 
) =D1 : S <C,5) =A 
)=A 

CLD: GOSUB CLX 
N 

RE FREQUENCY STORE 
OR A>255 THEN FAIL=1 
ION 21,11:? "{8 SPACES} 
ION 21,11:? A 
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5230 S(C,2)=A 

5280 GOSUB CLD: GOSUB CLX 

5290 RETURN 

5300 REM FRC SET FORCE BIT 

5310 IF A=0 THEN S<0,3)= NOT S<0,3) 

5320 IF A=l THEN S(l,3)= NOT S(l,3> 

5330 IF A=2 THEN S(2,3)= NOT S<2,3) 

5340 IF A=3 THEN 5(3, 3)= NOT S(3,3) 

5350 POSITION 21,12:? S(C,3> 

53S0 GOSUB CLD 

5390 RETURN 

5400 REM OFF TURN OFF SOUND 

5410 POKE 53761, 0:POKE 53763, 0:POKE 53765,0: 

POKE 53767,0 

5480 GOSUB CLD 

5490 RETURN 

5900 REM CLD CLEAR 

5910 POSITION 5, 15; 

5990 RETURN 

6000 REM CLX CLEAR 

6010 POSITION 5,14:7 "{21 SPACES> " : A=0 

6090 RETURN 

6100 REM VOL VOLUME SET 

6110 IF A<0 OR A>15 THEN FAIL=l:GOTO 6180 

6120 POSITION 21,13:? "{12 SPACES> " 

6122 POSITION 21,13:? A 

6130 S(C,4)=A 

6180 GOSUB CLD:GOSUB CLX 

6190 RETURN 

6200 REM POKAUD POKE AUDCTL VALUE 

6208 SUM=0 

6210 IF S(4,0)=l THEN SUM=SUM+1 

6211 IF S(4,l)=l THEN SUM=SUM+2 

6212 IF S(4,2)=l THEN SUM=SUM+4 

6213 IF S(4,3)=l THEN SUM=SUM+8 

6214 IF S(4,4)=l THEN SUM=SUM+16 

6215 IF S(4,5)=l THEN SUM=SUM+32 

6216 IF S(4,6)=l THEN SUM=SUM+64 

6217 IF S(4,7)=l THEN SUM=SUM+128 
6220 POKE 53768, SUM 

6290 RETURN — 

6300 REM CH TURN ON SOUND CHANNELS 

6310 GOSUB POKAUD 

6320 IF A=0 THEN POKE 5376 1 , S < , 1 > +S < , 4 > : PO 

KE 53760, S(0, 2) 

6322 IF A=l THEN POKE 53763 , S ( 1 , 1 > +S < 1 , 4 > : PO 

KE 53762, S(l, 2) 

6324 IF A=2 THEN POKE 53765 , S ( 2 , 1 ) +S < 2 , 4 ) : PO 

KE 53764, S(2, 2) 
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6326 

6380 
6390 
6400 
6410 
6490 

6500 
6505 
6506 
6510 
651 1 
6520 
6521 
6522 
6523 
6524 
6525 
6526 
6527 
6528 
6529 
6530 
6531 
6590 

6600 
6610 
6690 
6700 
6705 
6710 
6720 



6730 



6740 



6750 



6780 
6790 
6800 
6810 



IF A=3 THEN POKE 53767 , S ( 3 , 1 ) +S ( 3 , 4 ) : PO 

KE 53766, S(3, 2) 

GOBUB CLX: BOSUB CLD:BOSUB REBDIS 

RETURN 

REM START SET UP 

FOR 1=1 TO 8:P0SITI0N 30,1:? " 

RETURN 



NEXT I 



REM 

POSI 

POSI 

POSI 

POSI 

POSI 

POSI 

IF S 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

POSI 

POSI 

RETU 



REBD 
TION 
TION 
TION 
TION 
TION 
TION 
(C, 1 
(C, 1 
(C, 1 
(C, 1 
(C, 1 
<C, 1 
(C, 1 
(C, 1 
TION 
TION 
RN 



IS 

21, 

21, 

21, 

21, 

21, 

21, 

) =22 

) =19 

) =16 

) =12 

)=96 

) =64 

)=32 

) =0 

21, 

21, 



DIS 
12: 
12: 
1 1 : 

1 1 : 
10: 
10 
4 T 

2 T 
T 
8 T 

TH 

TH 

TH 

THE 

13: 

13: 



PLAY 

t> M f 

7 

7 

7 

■? 



OF REBISTER 
SPACES} " 
S (C, 3) 

"<:6 SPACES}" 
S (C, 2) 
" £6 SPACES}" 



HEN ? "14" 

HEN ? "12" 

HEN ? "10" 

HEN ? "8" 

EN ? "6" 

EN ? "4" 

EN ? "2" 

N ? " " 

? "<6 SPACES}" 

? S (C,4) 



REM B 
7 •■ <;b 
RETUR 
REM P 
BOSUB 
POSIT 
POSIT 
(0,4) 
(0,2) 
POSIT 
(1,4) 
(1,2) 

POSIT 
(2,4) 
(2,2) 
POSIT 
(3,4) 
(3, 2) 
BOSUB 
RETUR 
REM S 
POSIT 

;S(0, 



uzz 

ELL} 

N 

DIS 

EDI 
ION 
ION 
:POS 

ION 
: POS 

ION 
: POS 

ION 
: POS 

CLD 
N 

DIS 
ION 
8) ; " 



DISPLAY OF POKE DATA 
S 

20,18:7 "POKE 53768, " ; SUM 

2,19:? "POKE 53761, ";S(0,1)+S 

ITION 20,19:? "POKE 53760, " ; S 

2,20:? "POKE 53763, " ; S ( 1 , 1 ) +S 

ITION 20,20:? "POKE 53762, ";S 

2,21:? "POKE 53765, ";S(2,1)+S 

ITION 20,21:7 "POKE 53764, ";S 

2,22:? "POKE 53767, " ; S ( 3 , 1 ) +S 

ITION 20,22:? "POKE 53766, ";S 



DISPLAY OF SOUND DATA 
2,19:? "SOUND 0, " ; S ( , 2 ) ; " , 
, " ; S ( , 4 ) 
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6820 


POSITION 


2,20:? "SOUND 1, " ; S ( 1 , 


2) 




;S( 1, 8) ; ' 


1 , ■ ; S ( 1 , 4 ) 




6830 


POSITION 


2,21:? "SOUND 2, ";S(2, 


2) 




; S ( 2 , 8 ) ; " , " ; S ( 2 , 4 ) 




6840 


POSITION 


2,22:? "SOUND 3, " ; S ( 3 , 


2) 




;S (3, 8) ; * 


1 , " ; S ( 3 , 4 ) 




6880 


BOSUB CLD 




6890 


RETURN 






6900 


REM EDIS 


ERASE PDIS &SDIS 




6910 


POSITION 


20,18:? "{18 SPACES}" 




6920 


POSITION 


2,19:? "{35 SPACES>" 




6930 


POSITION 


2,20:? "^35 SPACES}" 




6940 


POSITION 


2,21:? "{35 SPACES}" 




6950 


POSITION 


2,22:? "{35 SPACES}" 




6990 


RETURN 






7000 


END 
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16-Bit Music 



IFred Tedsen 



Did you know that you can improve the tuning of your Atari's notes and 
extend its range dramatically? Normally you can only choose among 256 
notes with the ordinary SOUND command. These subroutines let you 
have more than 65,000 frequencies to make music that's more precise and 
more pleasant to hear. 

As I listened to my Atari play a new song that I had entered from 
a magazine listing, I could hear that some of the notes were not 
quite right. The music extended into the third octave above 
middle C, and though the tune was recognizable, some of the 
notes were off pitch enough to make listening to the tune 
unpleasant. I decided that it was time for me to investigate 16-bit 
music. What I discovered was not only that the accuracy of the 
notes could be improved dramatically, but also that the effective 
range could be more than doubled. 

How SOUND Works 

Before we discuss 16-bit music, let's take a look at what is 
happening when we use the SOUND statement, or in other 
words, eight-bit sound, in Atari BASIC. The following registers in 
the POKEY chip are used for sound generation: 

AUDF1 (53760) - Audio Frequency Register 1 
AUDC1 (53761) - Audio Control Register 1 
AUDF2 (53762) - Audio Frequency Register 2 
AUDC2 (53763) - Audio Control Register 2 
AUDF3 (53764) - Audio Frequency Register 3 
AUDC3 (53765) - Audio Control Register 3 
AUDF4 (53766) - Audio Frequency Register 4 
AUDC4 (53767) - Audio Control Register 4 
AUDCTL (53768) - Audio Mode Control Register 

The audio control registers are used to set volume (low order four 
bits) and sound content (high order bits). Thus there are 16 
different volume settings and a variety of sounds available. For 
this discussion we are concerned only with pure tones, corre- 
sponding to SOUND x,x,10,x. 
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The audio frequency registers are used to control the divide 
by N circuits. These circuits use the contents of the frequency 
registers to divide a "clock" frequency to produce different output 
frequencies. Since they are one-byte registers, they are referred to 
as eight-bit dividers. The output frequency is determined by the 
formula FO = F/(2 x (AUDF + 1)), where F is the clock frequency 
and AUDF the value in the audio frequency register. With a 
normal clock rate of 64 kilohertz (or more exactly 63,921 cycles per 
second), the frequency range is about 125 hertz to 32 kilohertz. 

The effective range for music is limited to about four octaves. 
This is because the tuning accuracy of notes being reproduced 
becomes progressively worse as the frequency gets higher. Figure 
1 illustrates this very clearly. It shows how far out of tune, meas- 
ured in "cents," each note in the four octave range is. (A cent is 
1/100 of a half -step. A sound which is 50 cents sharp or flat is 
exactly halfway between two notes.) Notes which are less than 
ten cents out of tune are usually acceptable, though two notes 
played together could sound bad if their combined inaccuracy is 
too large. For example, if you play a note which is eight cents flat 
followed by a higher note which is eight cents sharp, the second 
note will probably sound out of tune. 

Figure 1. Tuning Inaccuracy of Musical Notes in Cents Using 
8-Bit Dividers 




Tuning inaccuracy results from having a limited number of values 
to use as dividers. With an eight-bit divider, only 256 unique 
frequencies can be reproduced. The A note in the fourth octave 
should be 440 cycles per second. To reproduce this note on the 
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Atari, the number 72 is used as a divider. The resulting frequency 
is 437.8 hertz, which is 8.6 cents flat. If instead we use 71 as a 
divider, the output frequency is 443.9 hertz. This note is 15.3 cents 
sharp and is obviously a poorer choice than the note using 72. 
The choices become more restricted as the notes get higher. For 
the A note in the sixth octave, for example, 17 produces a note 
which is 15.3 cents sharp, while 18 produces a note 78.4 cents flat 
(closer to G# than A). 

Fine-tuning: 16-Bit Dividers 

Luckily the Atari provides a solution to this problem: 16-bit 
dividers. With a 16-bit divider 65,536 different output frequencies 
are possible. For example, to reproduce the A in octave 6, we 
could use either 502 (1.8 cents flat) or 501 (1.6 cents sharp) and not 
be able to hear any difference. Figure 2 shows how dramatically 
the range and accuracy are improved. 

Figure 2. Tuning Inaccuracy of Musical Notes in Cents Using 
16-Bit Dividers 




3 4 

OCTOUES 



5 6 ? e 

(16-BIT DIUIDER) 



More accurate tuning does not come without a price. Sixteen- 
bit dividers are obtained by combining frequency registers: 
AUDF1 with AUDF2, or AUDF3 with AUDF4. This gives us a 
choice of one 16-bit and two eight-bit voices, or two 16-bit voices. 
We also cannot use the SOUND statement, even for the eight-bit 
voices, as it will confuse our settings for 16-bit sound. As it turns 
out, this is not much of a problem since machine language 
routines to play the music are simple and have the added advan- 
tage of being faster than separate SOUND statements. 
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Now let's look at how 16-bit sound is set up. The audio mode 
control register has four bits for this purpose: 

Bit 6 — Clock channel 1 with 1.79 megahertz instead of 64 kilohertz 
Bit 5 — Clock channel 3 with 1.79 megahertz 
Bit 4 — Combine channels 1 and 2 
Bit 3 — Combine channels 3 and 4 

The other bits in AUDCTL have no bearing on this discussion, so 
we will ignore them. If you are curious, see Chapters 2 and 3 in 
the Hardware Manual. 

The 1.79 megahertz (1.78979 megahertz, to be exact) clock rate 
is required to obtain the full range of output frequencies. The 
formula for deteirnining output frequency is a little different: 
FO = F/(2 x (AUDF + 7)). In this case, AUDF is the two-byte 
frequency register value. The second register of the pair is the low 
order byte, either AUDF2 or AUDF4. For example, to use 1049 as a 
divider with registers 1 and 2, we would POKE 4 in AUDF2 and 
25inAUDFl. 

The audio control register of the low order frequency register 
is not used and should be set to zero. Volume is controlled with 
the second control register only (AUDC2 or AUDC4). 

16-Bit Subroutines 

Now take a look at the BASIC 16-bit sound subroutines. The first 
plays one 16-bit and two eight-bit voices, and the second plays 
two 16-bit voices. Notice the SOUND 0,0,0,0 at the beginning of 
each routine. This statement must be included to initialize POKEY 
for sound. The POKE 53768,X initializes AUDCTL for 16-bit 
sound, either one or two voices. Remember that any SOUND 
statement executed later will reset this register to zero. 

To use these subroutines, simply copy one or the other into 
your program and do a GOSUB 20100 once at the beginning of the 
program. Then, to play music, do the appropriate machine 
language call, X = USR(ADR(FIF1$),N1,V1,N2,V2,N3,V3) or 
X = USR(ADR(HF2$),N1, V1,N2, V2). Nx is the note to be played 
and Vx is the volume. Nl is the 16-bit voice in the three- voice 
routine. You don't need to pass parameters for unused voices. For 
example, if you want only the 16-bit voice in the three- voice routine, 
you can use X = USR(ADR(HF1$),N1,V1), but to use only an eight- 
bit voice you would have to use X = USR(ADR(HF1$),0,0,N2, V2). 

The note tables give you the most accurate values for four 
octaves of eight-bit and nine octaves of 16-bit notes. In a practical 
sense, the first octave of 16-bit notes is not usable because there 

48 



Sound 



are some loud harmonics which tend to mask the actual note 
being played. You can get some good sounds if you hook up to a 
stereo amplifier, however. Notice that the eight-bit value for F# in 
the third octave is 172 rather than 173 as shown in the BASIC Refer- 
ence Manual. 173 produces a note which is more than 12 cents flat, 
while the note from 172 is only 2.4 cents flat. 



16-Bit and 8-Bit Note Table 

NOTE 16-BIT 8-BIT 



NOTE 16-BIT 8-BIT 



c 


27357 


OCTAVE 1 


C 


3414 


121 OCTAVE 4 


c# 


25821 




c# 


3222 


114 


D 


24372 




D 


3040 


108 


D# 


23003 




D# 


2869 


102 


E 


21712 




E 


2708 


96 


r 


20493 




F 


2555 


91 


F# 


19342 




F# 


2412 


85 


G 


18256 




G 


2276 


81 


G# 


17231 




G# 


2148 


76 


A 


16264 




A 


2027 


72 


A# 


15351 




A# 


1913 


68 


B 


14489 

13675 


OCTAVE 2 


B 


1805 


64 


C 


C 


1703 


60 OCTAVE 5 


C# 


12907 




C# 


1607 


57 


D 


12182 




D 


1517 


53 


D# 


11498 




D# 


1431 


50 


E 


10852 




E 


1350 


47 


F 


10243 




F 


1274 


45 


F# 


9668 




F# 


1202 


42 


G 


9125 




G 


1134 


40 


G# 


8612 




G# 


1070 


37 


A 


8128 




A 


1010 


35 


A# 


7672 




A# 


953 


33 


B 


7241 
6834 


243 OCTAVE 3 


B 


899 


31 


C 


C 


848 


30 OCTAVE 6 


C# 


6450 


230 


C# 


800 


28 


D 


6088 


217 


D 


755 


26 


D# 


5746 


204 


D# 


712 


25 


E 


5423 


193 


E 


672 


23 


F 


5118 


182 


F 


634 


22 


F# 


4830 


172 


F# 


598 


21 


G 


4559 


162 


G 


564 


19 


G# 


4303 


153 


G# 


532 


18 


A 


4061 


144 


A 


501 


17 


A# 


3832 


136 


A# 


473 


16 


B 


3617 


128 


B 


446 


15 
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NOTE 16-BIT 8-BIT 



NOTE 16-BIT 8-BIT 



c 


421 14 OCTAVE 7 G 


136 




c# 


397 


G# 


128 




D 


374 


A 


120 




D# 


353 


A# 


113 




E 


332 
313 
295 


B 


106 




I 


C 


100 


OCTAVE 9 


G 


278 


C# 


94 




G# 


262 


D 


88 




A 


247 


D# 


83 




A# 


233 


E 


78 




B 


219 


I 

F# 


73 
69 




C 


207 OCTAVE 8 


64 




C# 


195 


G# 


60 




D 


183 


A 


57 




D# 


173 


A# 


53 




I 
1 


163 
153 


B 


50 










!•'# 


144 


C 
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Finally, some thoughts on when to use 16-bit music. If you have a 
piece of music which sounds fine using SOUND in BASIC, don't 
bother changing it — you probably won't be able to hear much 
improvement. I think you'll find that just about any music which 
extends into the fifth octave will be worth converting, however, 
especially if it is very complex. For three-part music, use the 16-bit 
voice for the highest notes. Some chord combinations may still 
sound slightly out of tune, in which case you might want to tune 
the 16-bit voice for the highest notes. Some chord combinations 
may still sound slightly out of tune, in which case you might want 
to tune the 16-bit voice a little sharp or flat to match the eight-bit 
voices. The large number of divider values available gives you 
plenty of possibilities. 



Program 1 . 16-Bit Sound Routine 

16-BIT SOUND ROUTINE 



20000 
20010 
20020 
20030 
20040 
20050 REM 
20100 
201 10 



REM 
REM 
REM 
REM 
REM 



1 16-BIT & 2 8-BIT VOICES 
X=USR (ADR(HF1*> ,N1,V1,N2,V2,N3,V; 

:768, X 



SOUND 0, 0, 0, 0: X=64+16: POKE 
DIM HFli <56) : RESTORE 20140 
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20120 FOR 1=1 TO 56:READ X:HF1$ ( I , I ) =CHR$(X) 

:NEXT I 
20130 RETURN 
20140 DATA 104,170,104,141,2,210,104,141,0,2 

10, 104, 104,41, 15,9, 160, 141,3,210 
20150 DATA 224,2,240,32,104,104,14 1,4,2 10,10 

4, 104,41, 15,9, 160, 141,5,210 
20160 DATA 224,4,240,14,104,104,141,6,210,10 

4, 10 4,41, 15,9, 160, 141,7,210,96 



Program 2. 16-Bit Sound Routine 2 



20000 REM 16-BIT SOUND ROUTINE 2 

2 10 REM 

20020 REM 2 16-BIT VOICES 

2 3 REM 

20040 REM X=USR ( ADR (HF2t) , Nl , VI , N2 , V2> 

20050 REM 

20100 SOUND 0, 0, 0, 0: X= (64+16 )+ <32+8) : POKE 53 

768, X 
20110 DIM HF2$ (41 ): RESTORE 20140 
20120 FOR 1 = 1 TO 41:READ X : HF2$ ( I , I ) =CHR$ ( X ) 

:NEXT I 
20130 RETURN 
20140 DATA 104,170,104,141,2,210,104,14 1,0,2 

10, 104, 104,41, 15,9, 160, 141,3,210 
20150 DATA 224,2,240,17 
20 160 DATA 104,141,6,210,104,141,4,210,104,1 

04, 41 , 15,9, 160, 141,7,210,96 
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1 
1 
1 

- 



- 
- 



- 3 

- Beginner's Keyboard 



Marty Albers 



Here is a short, simple program that gives very young computer users an 
entertaining introduction to the keyboard. 

Software for young children is hard to find. Most kids' games and 
educational software are difficult for the preschooler to under- 
stand. Relating screen movement to joystick control can be a hard 
concept to grasp. I wrote the following program for my two-year- 
old so he would not feel left out when the rest of the family used 
the computer. It was designed to be easy to use (just push a key), 
educational (learn letters and numbers), and entertaining (colors 
and sound), and to provide a friendly start into the world of 
computer literacy. 

Beginning programmers will also find this program 
rewarding, with some useful ideas to try on their own. An expla- 
nation of some of the less obvious lines follows. On lines 10 and 35 
you will see one method of keyboard input without selecting the 
RETURN key (see "Reading the Atari Keyboard on the Fly," 
COMPUTEl's First Book of Atari). Line 20 POKEs address 16 with 
112 to disable the BREAK key. Line 45 allows larger characters in 
Graphics modes 1 and 2 by using the PRINT #6; statement. Also 
on line 45 is a conversion of the keyboard input from ATASCII 
code to character format: CHR$ (I). 

Two sound registers are used (line 50), one with pure tones 
and one with distortions. Don't forget to turn the sounds off (line 
51). The "default colors" are used, a black screen and four others 
for the characters. To find the other colors, use the Atari logo key 
and shift between the upper- and lowercase. The RETURN key is 
used in line 41 to start a new row of characters. When the screen is 
full, you start again in line 42. Now begin! 

Beginner's Keyboard 

1 REM : I=INPUT, L=LINE, R=ROW, T=TIME 

10 OPEN #1,4,0, "K: " 

15 GRAPHICS 2+16:L=0 

20 POKE 16, 1 12 

25 FOR R=0 TO 20: IF R=20 THEN R=0:L=L+1 

30 POSITION R,L 
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35 GET #1 , I 

40 IF 1=155 AND 1=11 THEN GOTO 15 

41 IF 1=155 THEN R=-1:L=L+1 

42 IF R=18 AND L=ll THEN GOTO 15 
45 PRINT #6;CHR*(I) 

50 SOUND 0, 2*1 , 10, 8: SOUND 1 , 2 . 5* I , 8 , 1 : FOR T 
=1 TO 75:NEXT T 

51 SOUND 0,0, 0, 0:SOUND 1,0,0,0 
55 NEXT R 
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Spelling Quiz 



i Edward Perrin 



Here is an educational program that will help students learn their weekly 
spelling words. Word lists can be SAVEd to disk or tape for practice later. 
Requires 32Kfor disk and 16Kfor tape. 

"Spelling Quiz" allows you or your child to enter weekly spelling 
words into the computer and save them on tape or disk. All the 
words for the year can be saved at once, or each week can be 
saved separately (20 words at a time) as the school year 
progresses. 

The program allows you to enter up to 20 words at a time. I 
have found that most weekly spelling assignments are no more 
than 20 words, so this works out rather well. The program will 
accept fewer than 20 words, but no more than 20. 

The program prompts are self-explanatory, but it would be 
good to read through the following instructions. 

Load in the program with the BASIC cartridge inserted. The 
loading time for tape is about four minutes. 

Type in RUN. After the title page you will be asked if you 
want to Create or Retrieve a list of words to work on. You will also 
be asked if you are using a Disk or Tape. 

Creating Word Lists 

To create a list, simply type in up to 20 words, no more than 20 
letters each and with no leading or trailing spaces, one at a time, 
and hit the RETURN key Be sure each word is spelled correctly 
before hitting RETURN. If you enter fewer than 20 words, type in 
an * following the last input. After the last word or the * you will 
be asked to type in some sort of identifier for that particular list. 
Use "Chapter 4" or "List 189," etc. Use an identifier that your child 
will understand. The identifier is used to make sure your child 
has retrieved the correct list. 

Disk users will be asked to enter a filename. Only the 
filename is necessary; the program will supply the "Dl:". Be sure 
to make the name unique and meaningful. 

Tape users will need a blank tape or a tape which has been 
used to SAVE other word lists. Be sure to note the tape counter 
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number on a sheet of paper and to store the paper with the word 
tape. 

If you already have words stored, just follow the prompts to 
LOAD the words. 

Check the list and the identifier to be sure that this is the list 
you wanted to use. If not, you have the option to LOAD a new list 
or create a new one as needed. 

Once the words are LOADed in with the Create or Retrieve 
option, your child is ready to use the program. You now choose 
one of three options: spell a Certain number of words correctly, 
spell an unlimited number of words correctly, or End. 

If you choose the C option, you will be graded, and the 
program will terminate when the number of words spelled 
correctly equals the number you entered at the prompt. If you 
choose the unlimited option (by pressing RETURN), you can spell 
only 10,000 words before the program terminates. It is easy to 
change the 10,000 to another upper limit. Change the number in 
the last line of the program to stop the program automatically at a 
preset number. 

The Quiz Begins 

When you have made all of the necessary choices, the game is 
ready to play. The screen will show the number of the word being 
scrambled, the score (the number of words spelled correctly), a 
scrambled word, and the attempt number. At the bottom of the 
screen is a GRAPHICS window where you will type your 
answers. The word number on top will help the child who cannot 
figure out the scrambled word. The program checks spelling 
competence rather than ability to unscramble words, so there is 
no penalty for not unscrambling correctly. Use this option as you 
wish. 

Your child will then have three tries to spell the word 
correctly. If the spelling is correct, the screen will respond with an 
encouraging CORRECT and a happy sound. After three tries, the 
program will give the correct spelling and set up a different screen 
to allow the child to practice the misspelled word. 

Practice Screen 

The practice screen will not allow misspellings. It does allow the 
child to press the * to exit when he or she wants to. After each 
word in this mode, be sure to press the space bar, not RETURN. 



58 



Applications and Education 




Pressing RETURN will cause the computer to register an error in 
the spelling. 

After the number of correct spellings equals the number put 
in at the beginning, or if your child enters * instead of spelling a 
word during the main run, the quiz ends and your child is graded 
on his performance. If you think the grading is too strict, change 
the limits in the grading subroutine in line 9000-9999. 

After the grading, your child can go back and retrieve, or 
create and save a new file, or use the words already in the 
computer's memory. Your child has the option to end at this time. 
If he or she continues, the whole cycle repeats. 

Spelling Quiz 



2 REM 

10 DI 

(2 

* ( 

20 DI 

(2 

1 ) 

30 DI 

40 GO 

54 GD 

55 PR 
L{ 
RI 

56 TR 

57 TR 

58 GO 

59 Wl 
9 = 
16 

60 IF 
65 NU 
70 GO 

: 6 

8® GR 

Y ( 



SPELLING OUIZ 



90 PO 

TI 

110 F 

A 
N 

F 
A 



112 
1 15 
120 



M A* 
0) , G 
20) , 
M P* 
0) , A 
, WOR 
M WE 
SUB 
SUB 
INT 
3 SP 
LL?{ 
AP 5 
AP O 
SUB 
= 0: W 
0: Wl 
= 0: W 
SCO 
M=l : 
SUB 
OSUB 
APHI 
AR) = 
TO E 
SITI 
ON 2 
OR L 
* = A* 
EXT 
OR L 
RR=I 
120 



(20) 

* (20 
M* (2 
(20) 
RRAY 
D*(5 
L*(3 
3000 
1300 
"HOW 
ACES 
3 SP 
6: IN 
FF: S 
5200 
2 = 0: 
= : 
17 = 
RE = R 
W=IN 
7000 
700 
CS 2 
-1 
ND 
ON 
,0: 
= 1 
( 1 
L: IF 
TR=1 
NT (L 



, B* ( 
) , H* 
0) ,N 
, Q* ( 

(20) 
20) , 
8) ,D 



20) , C* (20) , D* (20) , E*(20) , F* 

(20) , I* (20) , Jt (20) , K* (20) , L 

» (20) , O* (20) 

20) , Rt (20) , S* (20) , T* (20) , U* 

, Z* (20) , STANDINGS (20) , ANS* ( 

INWORD* ( 128) 

K* (15) , ZZt ( 1) :TIME = 





MANY WORDS DO YOU WISH TO SPEL 
DCORRECTLY BEFORE ENDING THIS D 



ENTER O TO END PROGRfiM 



PUT RIGHT: IF RIGHT=0 THEN 4000 

CORE=0: ATT=0 

:TRAP OFF 

W3=0: W4=0:W5=0:W6=0:W7=0: W8=0: W 

W11=0:W12=0:W13=0:W14=0: W15=0: W 

:W18=0:W19=0: W20=0 

IGHT THEN 1000 

T (20*RND ( 1 ) +1 ) 

: IF A*=" <20 SPACES!" THEN NUM=-1 

0:GOTO 65 

:POKE 708,0:FOR AR=1 TO 20:ARRA 

EXT AR:PRINT " {BELL>" ;" INPUT '* 

UIZ" 

1,3:? #6; "SCORE" ; " "; SCORE: POSI 

#6;"#";W;" ON YOUR LIST" 
O 20: IF At(L,L)=" " THEN L=L-1: 
) : GOTO 115 

L=21 THEN L=20 

TO L 
*RND (0) +1 ) : IF ARRAY(ARR)=1 THEN 
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125 P=ARR-1 

130 POSITION P,7:? #6 ; A* ( LTR , LTR ) : ARRA Y ( ARR ) 

=1:NEXT LTR:POKE 708,200 
135 TRY=0 
137 TRY=TRY+1 : ATT=ATT+1: POSITION 0,9:7 #6;"A 

TTEMPT tt ";ATT 

140 INPUT Z*: IF Z*="*" THEN ATT=ATT- 1 : NUM=- 1 
: GOSUB 7000:BOTO 1000 

141 IF Z*=A* THEN SCORE=SCORE+ 1 : FOR N=100 TO 

10 STEP -l:SOUND , N , 1 , 1 : NEX T N:SOUND 
0,0,0,0 

142 IF Z* = A$ THEN POSITION 12,6:? #6; " OTrBTtti 
EB":FOR N=l TO 300:NEXT NsGOTO 60 

143 IF TRY=3 THEN FOR N=l TO 100:SOUND 0,20, 
4,10:NEXT N:SOUND 0,0,0,0:GOTO 2000 

144 POSITION 0,2:? #6 ; " EHSXEHBH" : POS I T I ON 0, 

145 FOR N=l TO 100:SOUND , 1 1 , 4 , 1 : NEXT N:SO 
UND 0,0,0,0 

147 POSITION 0,2:? #6;"<S SPACES] " : POS I T I ON 

0,3:? #6; "Ol SPACES:" 
150 GOTO 137 
1000 GRAPHICS 18:PRINT #6;" your score is " 

; SCORE 
1010 PRINT #6:PRINT #6; "time to quit for now 

II 

1020 ? #6:? #6:? #6; "{3 SPACES > CONGRATULAT I D 

NS" 
1030 ? #6; " HB aEM BEEMSEEOEEI gBEg : ? # 6:? #6;" 



QUIZ WILL REPEAT! 



1040 GOSUB 5000:SOUND , , , : SOUND 1,0,0,0: 

GOTO 9000 
2000 POSITION 0,5:? #6 ; A* : POS I T I ON 0,4:? #6; 

"EHE33aa" : NUM = -1 : GOSUB 7000 
2010 FOR N=l TO 1000 
2020 NEXT N: GOSUB 8000 
2030 GOTO 60 
3000 GRAPHICS 18:POSITION 0,4:? #6;" 

<3 spaces: aoMMmn? E THE " 

3005 GOSUB 5000:SOUND 1 , , , : SOUND 0,0,0,0: 

RETURN 
4000 GRAPHICS 18: POSITION 0,2:7 #6; "VERY GOO 

D WORK. . . " 
4010 POSITION 0,6:? #6; "see you again later" 
4020 POSITION 4,10:? #6; "I 
4030 GOSUB 5000: GOTO 7030 
5000 FOR N=l TO 200 
5010 SOUND 0, RND <0> *200, 10, 
5030 NEXT N 
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5040 RETURN 

5100 FOR N=l TO 100:9OUND 0, M, 10, 101 NEXT N:S 

OUND 0, 0, 0, 0: RETURN 
5200 FOR N = 255 TO 200 STEP -1: SOUND , N , 1 „ 1 

0:NEXT N-.FOR N = 225 TO 150 STEP -l:SOUND 
0, N, 10, 10: NEXT N 
52 10 FOR N=175 TO 100 STEP -1: SOUND 0,N,10,1 

0SNEXT N:FOR N=150 TO 50 STEP -1: SOUND 

0, N, 10, 10: NEXT N: SOUND , , , : RETURN 

7000 IF W=l THEN B$=WDRD$(1,20):A$=B$:W1=W1+ 
NUN 

7001 IF W=2 THEN C$=WORDt ( 2 1 , 40 ) : A* = C* : W2=W2 
+ NUM 

7002 IF W=3 THEN D*=WORD* ( 4 1 , 60 ) : A*=D* : W3=W3 
+ NUM 

7003 IF W=4 THEN E$=WQRD$ ( 6 1 , 80 ) : A* = E* : W4=W4 
+ NUM 

7004 IF W=5 THEN F$=W0RD$(81, 100) : A$=F$: W5=W 
5 + NUM 

7005 IF W=6 THEN G$=WQRD$ (101,12 1): A$=G$: W6= 
W6+NUM 

7006 IF W=7 THEN H*=WORD* ( 1 2 1 , 1 40 ) : A* = H* : W7= 
W7+NUN 

7007 IF W = 8 THEN I *=WORD* ( 1 4 1 , 1 60 ) : A* = I * : W8 = 
W8+NUM 

7008 IF W=9 THEN J$=WORD$ ( 161 , 180) :A$=J$:W9= 
W9+NUM 

7009 IF W=10 THEN K$=WORD$ ( 1 8 1 , 200 ) : A* = K* : W 1 
0=W10+NUM 

7010 IF W=ll THEN L*=WORD* (201 , 220) : A*=L*: Wl 
1=W1 1+NUM 

7011 IF W=12 THEN M* = WORD* ( 22 1 , 240 ) : A* = M* : W 1 
2=W12+NUM 

7012 IF W=13 THEN N*=WORD* ( 24 1 , 260 ) : A*=N* : W 1 
3=W13+NUM 

7013 IF W=14 THEN 0*= WORD* ( 26 1 , 280 ) : A* = 0* : W 1 
4=W14+NUM 

7014 IF W=15 THEN P* = WORD* ( 28 1 , 300 ) : A*=P* : W 1 
5=W15+NUM 

7015 IF W=16 THEN Q*= WORD* ( 30 1 , 320 ) : A*=Q* : W 1 
6=W16+NUM 

7016 IF W=17 THEN R*=WORD* ( 32 1 , 340 ) : A*=R* : W 1 
7=W17+NUM 

7017 IF W=18 THEN S*=WORD* ( 34 1 , 360 ) : A*=S* : W 1 
8=W18+NUM 

7018 IF W=19 THEN T*= WORD* ( 36 1 , 380 ) : A*=T* : W 1 
9=W19+NUM 

7019 IF W=20 THEN U*=WORD* ( 38 1 , 400 ) : A*=U* : W2 
0=W20+NUM 
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7020 


7030 


8000 


8005 


3007 



8010 



8100 


8150 


8200 


8300 


8350 


8355 


8360 


8370 


8400 


8450 


8500 


8600 


9000 


9010 


9050 



9100 



9150 



9200 
9250 



9260 



9270 



9280 
9300 



RETURN 
END 

GRAPHICS 18: POKE 708,100:7 #6;*'nH^H= 
LIUjC" : POSITION 0,1:? #6; A* 



POSITION 0,2:? 
POSITION 0,3:? 

II 

POSITION 0,4:? 

: L=0: COUNTER=0 

OPEN #1,4,0, "K: 

L = L+1 

BET #1,CHAR 

CLOSE #1 

IF CHR*(CHAR)=' 



land ft: 


Qspacebar. . . " 






UNTIL 


SCREEN IS FULL! 



#6; 
#6; 



#6; "or type * to return" 



* " 



THEN 
THEN 



GOTO 60 



L=0:SOSUB 8400 
THEN GOSUB 12000 



IF CHR$ (CHAR) =' 
IF CHR$ (CHAR) <>A* (L, L) 
:GOTO 8000 

IF L=LEN(A*) THEN L=0 

COUNT ER=C0UNTER+1 : PRINT #6; CHR* (CHAR) ; : 
TRAP 40000 

IF C0UNTERM39 THEN GOTO 60 
GOTO 8100 
RETURN 

POKE 752,1:PRINT "HERE IS 
MANY TIMES EACH WORD WAS 
CTLY THIS TIME." 
NUM=0:FOR W=l TO 



A LIST OF HOW 
SPELLED CORRE 



FOR N=100 TO 240: 

:SOUND 0,0,0,0 

? Wl ; " " ; B*: ? W2; 



20: GOSUB 7000: NEXT W 
SOUND 0, N, 10, 10: NEXT 



" ;C*:? W: 



" ; D*i 



W 



4;" ";E*:? W5;" ";F*:? W6;" ";G*:? W7;" 



" ;H*: ? 
;K* 

? Wll|" 
? W14; " 
? W 1 7 ; " 
? W20; " 



W8;" ";!*:? W9; " ";J*:? W 1 ; " 



" ; L*: 

" ; O*: 

" ; R*: 

" ; U* 



W12 
W15 
WIS 



" ; M*: ? W13; " "; N*: 
" ; P%: ? W16; " " ; Q*: 
" ; S$: ? W19; " " ; T* 



POKE 752, 1 : POSITION 25,3:PRINT " EUBmEB 

3":POSITION 28,5:PRINT ATT:FOR N=l TO 2 

00: SOUND 0, 255, 10, 8: NEXT N 

POSITION 25,7:PRINT " B3333SO " : POSITION 

28,9:PRINT SCORE:FOR N=l TO 200:SOUND 

, 200, 10, 8: NEXT N 

TRAP 9400:PER=INT( (SCORE/ATT) *100) :POSI 

TION 25,11:PRINT " H3HHMID" : POS I T I ON 28, 

13: PRINT PER; "7." 

FOR N=l TO 200:SDUND , 1 00 , 1 , 6 : NEXT N 

POSITION 25,15:? " M:T:U3=« " 
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9310 IF PER>=95 THEN POSITION 27,17:? 

POSITION 25,21:7 " i*:*.^w=<:h*m»j " 
9320 IF PER>=88 AND PER<95 THEN POSITION 27, 

17:7 



:POSITION 25,21:7 " EI33«BEIiI3H 



BT 



9330 IF PER>=78 AND PER<SS THEN POSITION 27, 

17:7 "■31" : POSITION 25,21:7 "HUnHnH" 
9340 IF PER>=70 AND PER<78 THEN POSITION 27, 

17:7 "Ba":POSITION 25,21:7 " lilSlSISISIW" 
9350 IF PER<70 THEN POSITION 27,17:7 "■^":P 

OSITION 25,21:7 " aHDHaHHH " 
9360 SOUND 0,0, 0,0: POKE 752,0: GOTO 54 
9400 PER=0: POSITION 2B,13:PRINT PER:POSITION 

25, 11: PRINT " [3333333" : G O T O 9280 
10000 WEL$= " EIMg3IgiagIIMEiaaM3II3gS MnaEC IgHging 
MSI& +* " : PRINT " {CLEAR > " : FOR N=l TO 37:P 
PINT WEL$(N,N);:NEXT N : T I ME=T I ME+ 1 

10010 OFF=40000: P=0: 7 :? "DO YOU WANT TO ERE 
ATE OR RETRIEVE THE FILE"; 

10011 0*=" C20 SPACES!! ": FOR N=l TO 520 STEP 20 
: WORD* (N, N+19) =0*: NEXT N 

10012 7 :? :? "ONCE YOU CREATE A FILE IT WIL 
L BEC5 SPACES!! STORED ON TAPE OR DISK S 
O YOU CAN<5 SPACES} INPUT THE WORDS FRO 
M" 

10013 ? "THE TAPE OR DISK INSTEAD OF TYPING 
C3 SPACES>THE SAME WORDS IN EVERY TIME 

YOU PLAY. " 

10014 7 :? :? "TYPE IN E OR E AND HIT HMOEC 

NOW ! " 

10015 TRAP 10014: INPUT ANS* 

10017 TRAF 10017:7 "ARE YOU USING BARE OR EI 
SK": INPUT ZZ*:IF 2 2 * ( 1 , 1 ) < > " T " AND ZZ* 
( 1 , 1 ) < >"D" THEN 10017 

10020 IF ANS*<>"C" THEN GOTO 11000 

10100 7 "TYPE IN WORDS NOW":N=l 

1010 5 7 : 7 :? " l=i=«fcll]:]=Mif:T»i;W»ri]:a>mfcMbl 3MMH31 

£ 1 4 i.1J:;.i»1 } " 
10110 FOR N=l TO 400 STEP 20: INPUT INWORD* 
10120 IF N>399 THEN WORD* ( 40 1 , 520 ) = " " : GOTO 

10200 
10125 IF INWORD*="*" THEN WORD* ( N , 520 )= " ":G 

OTO 10150 
10130 WORD* (N, N+19) =INWORD* 
10140 NEXT N 

10150 7 "TYPE IN CHAPTER tt OR LIST # ETC..." 
10160 INPUT INWORD*: WORD* (401 , 420) =INWORD* 
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10200 
10202 
10203 

10204 

10205 
10206 
10207 
10209 
10210 

10220 
10300 
10500 

10520 

10525 
10530 

10540 
1 1000 

1 1005 
11010 



1 1020 
1 1025 
1 1030 
1 1035 
1 1040 
1 1045 

1 1060 

1 1067 
1 1068 
1 1070 



1 1075 
1 1080 



FDR 
+ 19) 
IF Z 
: OPE 
■? " p 

C4 S 
RESS 

*3 » *? 

oann 

N=l 
TRAP 
OPEN 
N=l : 
PRIN 



N=l TO 420 STEP 20:PRINT WORD*(N,N 

:NEXT N 

Z*="D" THEN GOSUB 

N #2, 8, 0, DK*: GOTO 

OSITION THE TAPE 

PACES>THE COUNTER 

THE PLAY AND REC 

"WHEN THE BUZZER 



10500: TRAP 40000 

10209 
AND TAKE NOTE OF 

NUMBER. " : 7 : ? "P 
ORD BUTTONS. " 

SOUNDS, PRESS f-Ta 



NEXT 

GOTO 

PRIN 

{.7 S 

O "; 

IF A 

30 

PRIN 

TRAP 

3) =" 

RETU 



10207: LPRINT 

# 2 , 8 , , " C : " 
FOR X=l TO 4 
T #2; WORD* (N, N+l 19) : N=N+120 

X: CLOSE #2 

13000 
T "YOU MUST NOW E 
PACES} (WITHOUT ' D 



NTER THE FILENAME 
: ' ) OF THE FILE T 



NS*="R" THEN PRINT "LOAD":GOTO 105 



T "CREATE" 

10500: INPUT DK*; 
Dl : " 
RN 



DK* <4) =DK*: DK* (1, 



= " D " 
PEN 
LOAD 
SURE 
CES] 
N BU 
T FO 
COM 
EN # 
1 TO 
1040 
N, N + 



THE 
#2, 4 

WOR 

TO 
CORR 
ZZER 
R TH 
PUTE 
2 4 

4 
: INP 
119) 



IF ZZ* 
0000: O 
? "TO 
PE BE 
C3 SPA 
? "WHE 
D WAI 
THE 
N=l : OP 
FOR X = 
TRAP 1 
WORD* ( 
NEXT X 
CLOSE #2 

FOR N=l TO 400 STEP 20:PRINT INT<N/20) 

+ 1 ; " " ; WORD* (N, N+19) 

NEXT N 

PRINT "^9 SPACES} " ; WORD* (401 , 420) 



IS THIS THE GROUP OF WORDS THRT YOI 



N GOSUB 
, 0, DK*: 
DS THAT 
POSITIO 
ECT COU 
SOUNDS 
E WORDS 
R . . . " 
, " C : " 

UT #2, I 
=INWORD 



10500: N=l : TRAP 4 
GOTO 11025 

ARE STORED ON TA 
N THE TAPE AT THE 
NTER # YOU NEED. " 
, PRESS EBEEEC AN 

TO BE LOADED INT 



NWORD* 

*: N=N+120 



PfiCE5«WfiHTEO CY/M) 



ANS*="N" THEN GOTO 1 
GOTO 13019 
END 



" ; : INPUT ANS*: IF 
0000 
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12000 

12005 

12010 
12020 
12030 
12040 
12050 
13000 

13005 

13010 
1301 1 



13014 
13 015 
13016 
13017 
1301B 



13019 
13020 



13025 

13030 

13050 
13060 
13070 



FO 
SO 
BR 
R) 
PO 
PO 
PO 
PO 
L = 
WE 



N=l TO 100:SOUND 0, 20, 4, 10: NEXT N: 
ND 0,0,0,0 
PHICS 18:7 #6; " dilUfci-'J J=E ";CHR$(CHA 



XT 
TR 
EN 
PR 



LI 
O 
13012 7 



ITION 
ITION 
ITION 
ITION 
: FOR N 

: FOR 
N: NUM= 
P 1301 
READY- 
NT " iC 
7:7: 
T OF W 

DO YO 



0,1:7 #6; "wrong ... TRY AGAIN' 

4,3:7 #6; "THE WORD IS " 

0,4:7 #6; A* 

6,5:7 #6; "READY???" 

=1 TO 400:NEXT N:RETURN 



NOW YOO MOST MHKE R BIG DECX5IO 



IT E 



13013 7 
ST 
IS 
IN 
IF 
IF 
GO 



GH 
I 
01 
PR 
7 

C 
H 
7 

Y 

7 

B. 
IN 
IF 
RI 



l=**U:i: 

TYPE I 
7 : 7 " 
TIME 
7 SPAC 
UT ANS 
ANS*=" 
TIME=0 
O 1301 
7 : 7 " 
THE<3 
OR CR 



N=l 

1 

0:7 : 7 

; : INPUT 

LEAR} (B 
•y . •? » [) 

ORDS A 
U WANTT 
TYPE IN 
TO USE 
N [= TO 
OF COUR 
THROUGH 
ES>SESS 
*: IF AN 
E" THEN 
THEN 7 
9 

THIS IS 
SPACES} 
EATE A 



TO 35:PRINT WEL* < N , N ) ; : NE 



"HIT TH 
A: IF A 
ELL} " : T 
O YOU W 
LREADY 
O LOAD 
a FOR 
THE OL 
END" 
SE, IF 

THE PR 

ION YOU 

S*="N" 

GOTO 4 

" <3 BE 



E 13MMS31 KEY WH 
=0 THEN END 
RAP OFF 

ANT TO USE THE 
IN THE COMPUTER 
IN A NEW LIST" 
A NEW LIST OR H 
D LIST.":? : 7 : 

THIS IS THE FIR 
OGRAM DURING TH 
MUST HIT C! ! ! " 
THEN GOTO 10000 
000 
LL^" :GOTO 13018 



your BOBaMDHai THROU 
PROGRAM. YOU MUST LOAD 
NEW LIST NOW!":GOTO 13 



NT "{CLEAR}" 

7 :? "IF YOU WANT TO PRACTICE FOR A 

RTAIN NUMBER OF TIMES TYPE IN E AND 

tc5 spaces} Emnnc " 

7 :? "IF YOU WANT TO PRACTICE UNTIL 
U GET TIRED JUST HIT 53311131 . " 

? :? "IF YOU WANT TO QUIT, TYPE IN 

PUT ANS*: IF ANSt="C" THEN GOTO 55 

ANS*="E" THEN GOTO 4000 
GHT=10000:GOTO 57 
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Elementary Numbers 



Stephen Levy 



This educational program for preschoolers requires children to use only the 
three console keys to answer questions. 

When you bought your computer, one reason you used to justify 
the purchase was that the kids could use it for educational 
purposes. Well, now the computer is home, but the three-year-old 
rarely uses it. "Too young," you tell yourself, "maybe in a few 
years." 

Children as young as two can and are using computers every 
day. But the lack of good software is still the major reason pre- 
schoolers don't make greater use of computers. To be used 
successfully with preschoolers, educational software must be 
truly educational, must have a difficulty level and subject matter 
appropriate for the age group, and must hold the child's attention 
and be fairly simple to use. 

For the Very Young 

Using computers to teach young children can be fun and chal- 
lenging. The Atari's design makes it extremely easy for young 
children to use. Although the Atari offers numerous ways to 
input answers, this program, once LOADed, requires only the 
use of the three function keys to input responses. The subject 
matter, elementary numbers, is basic and is intended to teach the 
numbers from one to ten and the addition of single digits. 

There are four options for the child to pick from. When the 
menu appears the youngster must use the function keys to select 
the part of the program to use. Pressing the SELECT key moves a 
small marker from one option to the next. When the child is satis- 
fied with his or her selection, he or she presses the START key. It is 
important that the child hold down the key until the computer 
responds (this is true throughout the program). 

The Options 

The four options are Adding, Counting, Next Number, and Select 
a Number. 

Adding presents a simple addition problem and an equiva- 
lent number of symbols for each number in the problem. By 
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counting the symbols, the child can decide on the answer. The 
child then presses the SELECT key until his or her answer (with 
the appropriate number of symbols) appears on the screen. The 
word for each number in the problem also appears. 

5 ***** FIVE 
+4####FOUR 



9 &&&&&&&&& 

To find out if an answer is correct, the child holds down the 
option key. If the answer is correct, the child hears a song and then 
is given the option of another problem. 

Counting involves very little participation on the part of the 
child and is intended for the child who has had little experience 
with the computer and is perhaps too young for the other options. 

Next Number asks the child to find the next consecutive 
number. The computer selects a number and then prints the digit, 
the word for the number and the appropriate number of symbols. 
The child must answer with the next consecutive number in the 
same manner. 

In the final option, Select a Number, the child must match the 
word for a number with the correct number. 

Using the Joysticks 

It is hoped that this program will give parents and others new 
ideas about how to design programs for very young children. 

This program uses the console keys. Another method for 
easy inputs is the joystick; Al Baker has two articles that explore 
this topic in COMPUTER'S First Book of Atari. Consider also the 
possibility of multiple-choice questions that format the answers on 
the screen in such a way that a child could simply push the stick 
in the direction of his or her response. 

The computer is your tool; why not make it a learning tool for 
your children? 

Elementary Numbers 

100 REM ELEMENTARY NUMBERS 

110 REM 

120 REM COMPUTE! PUBLICATIONS 

130 DIM CLEAR* ( 1 ) , NUMBER* <51 ) , C* < 1 ) , NUM* (6) 

140 NUMBER*="ZERO ONE TWO THREEFOUR FIVE S 

IX SEVENEISHTNINE " : CLEAR*=CHR* ( 1 25 ) : C* 

=CHR* (94) 
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150 


GRAPHII 


160 


PDSITIi 




IDN 5, 


170 


AA = 4 


180 


PRINT 




RESS s 




#6; "PRI 


190 


PQSITH 




3, 6:PR 




NT #6; 


200 


POSITI 


210 


IF PEE! 


220 


IF AA = 


230 


IF AA = 


240 


IF PEE! 


250 


POSITI 




A-2:PR 


260 


IF AA = 


270 


IF AA = 


280 


IF AA = 


270 


IF AA = 


300 


FOR AA 




6;C*:N 


310 


POSITI 




(NUM1* 


320 


FOR AA 




6; C*:N 


330 


POSITI 




(NUM2* 


340 


NUM1=I 


350 


NUM2=I 


360 


FOR WA 


370 


IF AA = 


380 


GOTO 4 


390 


IF AA = 


400 


IF AA< 




*: POSI 


410 


SOUND 


420 


IF AA = 



CS 18:SETC0L0R 4,8,3 

ON 5,3:PRINT #6; "ELEMENT 

7: PRINT #6;" NUMBERS" : GO 



#6; CLEAR*:POS 
tart TO BEGIN 
ESS select TO 
ON 3,4:PRINT 
INT #6; "count 
"next number" 
ON 3, 10:PRINT 
K(53279)=5 TH 
12 THEN AA=4 
4 THEN POSITI 
K(53279>=6 TH 
ON 0,AA:PRINT 
INT #6; " " :G 
4 THEN 500 
6 THEN 960 
8 THEN 1260 
10 THEN 1580 
=1 TO NUMl:PO 
EXT AA 

ON AA+6,4:PRI 
4) ,NUMl+5+ <NU 
=1 TO NUM2:P0 
EXT AA 

ON AA+6,6:PRI 
4) ,NUM2+5+ (NU 
NT (RND (0) *10) 
NT (RND (0) *10) 
IT=1 TO 500:N 

10 THEN 1370 
00 
19 THEN 520 

11 THEN POSIT 
TION 3,8:PRIN 
0, 75, 10,8 
10 THEN POSIT 



ITION 0,0:P 
":POSITION 

PICK" 
#6; "adding" 
ing": POSITI 

#6; "select 
EN AA=AA+2 

ON 0, 10: PRI 

EN GOTO 260 

#6; " >>" : PO 

OSUB 360:GO 



ARY" :POSIT 
SUB 360 

RINT #6; "P 
0, 1 :PRINT 

:POSITION 
ON 3,8:PRI 

a number" 



NT #6; " 

SITION 0,A 
TO 210 



SITION AA+5,4:PRINT # 



NT #6;NUMBE 
Ml *4) ) : RETU 
SITION AA+5 



R* (NUM1+1+ 
RN 
,6:PRINT # 



NT #6;NUMBE 

M2*4) ) :RETU 

: RETURN 

: RETURN 

EXT WAIT:RETURN 



R* (NUM2+1+ 
RN 



ION 5+AA,8: 
T #6;AA 



PRINT #6;C 



ION 2,8:PRINT #6;"10 



430 

440 
450 
460 

470 
480 
490 



#6;C*:P0SITI0N 2,8:PRINT #6;AA 
SOUND 0,0,0,0 
RETURN 

NUM*=NUMBER* ( COUNT+ 1 +( COUNT *4 ) , COUNT +5+ ( 
COUNT*4) ) : RETURN 

CHAR=INT <RND (0) «8) +36: GOTO 490 
CHAR=INT (RND (0) *5) +60 
C*=CHR* (CHAR) :RETURN 
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500 


REM ADDING 


510 


BOSUB 340:GOSUB 350 


520 


GRAPHICS 18:SETC0L0R 4 , 1 4 , 1 2 : SETCOLOR 0, 




8, 18 


530 


POSITION 3,4:PRINT #6;NUM1 


540 


IF NUM1=0 THEN POSITION 5,4:PRINT #6;"BE 




HE": SOTO 560 


550 


GOSUB 470:GOSUB 300 


560 


POSITION 3,6:PRINT #6;NUM2 


570 


IF NUM2=0 THEN POSITION 5,6:PRINT #6; "S3 




□E" :GOTO 590 


580 


GOSUB 480: GOSUB 320 


590 


POSITION 2,7:PRINT #6 ;"■■■": POS I T I ON 1,5 




: PRINT #6; "+" 


600 


AA=0: POSITION 3,8:PRINT #6;"0" 


610 


GOSUB 470 


620 


POSITION 0,0:PRINT #6; "press select to 




(12 SPACES>czhange answer ": GOSUB 360 


630 


IF PEEK <53279) =5 THEN AA=AA+ 1 : GOSUB 390 


640 


PRRTTinN <3 r 0:PRTNT #A • " 1 -1J JLA^m . 1 Jfflf I. J I BRI IT J ,' 






650 


IF PEEK (53279)=5 THEN AA=AA+ 1 : GOSUB 390 


660 


IF PEEK (53279)=3 THEN 680 


670 


GOTO 620 


680 


IF AA=NUM1+NUM2 THEN GOSUB 750 


690 


IF AAONUM1+NUM2 THEN GOSUB 770JGOTO 520 


700 


POSITION T 0:PRINT # 6 ; " i J WMKW* m ■ =*** *W3BTB 




C4 SPACES> ■ETJTSiaiTSIB raWISKTlU SPALtS>"sGO 




SUB 360: GOSUB 360 


710 


IF PEEK (53279) =5 THEN 500 


720 


IF PEEK (53279) =6 THEN 150 


730 


POSITION 0,0:PRINT #6; "press KHLUlim -for m 




enu(17 SPACES>": GOSUB 360 


740 


GOSUB 360: GOTO 700 


750 


REM CORRECT ANSWER 


760 


POSITION 2,11:PRINT #6 ;" correct ": GOSUB 1 




920: RETURN 


770 


REM WRONG ANSWER 


780 


POSITION 2,11:PRINT #6;"sorry, try again 



790 FOR S=l TO 2 

800 SOUND 0,120,2,8 

810 GOSUB 950 

820 SOUND 0,29,10,12 

830 FOR WAIT=1 TO 40:NEXT WAIT 

840 GOSUB 940: NEXT S 

850 FOR S=l TO 3 

860 SOUND 0,180,2,8 

870 GOSUB 950: GOSUB 940 
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880 NEXT S 

890 FOR Sl=l TO 2 

900 SOUND 0,29,10,11 

910 FOR WAIT=1 TO 40:NEXT WAIT 

920 GOSUB 940:NEXT SI 

930 RETURN 

940 SOUND 0,0,0,0:FOR WAIT=1 TO 40:NEXT WAIT 

: RETURN 
950 FOR WAIT=1 TO 80:NEXT WAIT:RETURN 
960 REM COUNTINB 
970 TIMES=1 
980 UOSUB 2130 

990 SETCOLOR 4 , 8 , 5 : SETCOLOR 0,9,14 
1000 POKE 87, 2: POSITION 5,2:PRINT #6;"C0UNTI 

NG" 
1010 FOR C=l TO 15:SETC0L0R 4,C,8:F0R WAIT=1 

TO 25:S0UND , C* 1 5 , 1 , 8 : NEXT WAIT 
1020 SOUND 0,0,0,0:NEXT C 
1030 SETCOLOR 4 , 8 , 5 : SETCOLOR , 9 , 1 4 : SETCOLOR 

1, 12, 10 
1040 POKE B7,2:PRINT #6 ; CLEAR* : 0= 1 
1050 COLOR 2-.P0KE 87,5:F0R Cl=6 TO 8:PL0T 0, 

C1:DRAWT0 79,C1:NEXT CI 
1060 FOR COUNT=l TO 9 
1070 REM 
1080 60SUB 460 
1090 POKE 87, 1 : POSITION 0,3:PRINT #6;NUM*:P0 

SITION 15,3:PRINT #6; NUM$: POSITION 9,3: 

PRINT #6;COUNT 
1100 POKE 87,2:F0R Cl=5 TO 13 STEP 4:P0SITI0 

N C1,0:PRINT #6 ; COUNT : NE XT CI 
1110 POKE 87,2: POSITION 2,2:PRINT #6;NUM*:P0 

SITION 9,1:PRINT #6 ; COUNT : POS I T I ON 13,2 

:PRINT #6;NUM* 
1120 SETCOLOR 2,3,7 
1130 COLOR 3 
1140 SOUND 0,120,10,8 
1150 POKE 87,5:PL0T Q+4 , 1 5 : DRAWTO Q+4,11:DRA 

WTO Q, 1 1 : POSITION 0,15:POKE 765,3:XIO 1 

8, #6,0, 0, "S: " 
1160 SOUND 0,0,0,0 
1170 Q=Q+B 
1180 BOSUB 360 
1190 COLOR 3 
1200 POKE 87,5:PL0T Q+4 , 1 5 : DRAWTO Q+4,11:DRA 

WTO Q, 1 1 : POSITION Q,15:P0KE 765,3:XI0 1 

8, #6,0, 0, "S: " 
1210 NEXT COUNT 
1220 TIMES=TIMES+1 
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1230 IF TIMES=3 THEN 150 

1240 60T0 9B0 

1250 END 

1260 REM NEXT NUMBER 

1270 GOSUB 2130 

12B0 SETCOLDR 4 , 5 , 1 : SETCOLOR , 6 , 3 : SETCOLOR 

1 , 1 1 ,6: SETCOLOR 2,3,3 
1290 POKE 87, 1 : POSITION 5,4:PRINT #6;"NEXT N 

UMBER" 
1300 FOR Cl=2 TO 3 
1310 COLOR C1:C2=C1*4 
1320 POKE 87,5:PL0T 79 , C2+2 : DRAWTO 79,C2:DRA 

WTO 0,C2:POSITION 0,C2+2:POKE 765,C1:XI 

O 18, #6,0,0, "Si " 
1330 NEXT CI 

1340 GOSUB 340: IF NUM1=9 OR NUM1=0 THEN 1340 
1350 GOSUB 360: GOSUB 360 
1360 GOSUB 480 
1370 GRAPHICS 17 
1380 POSITION 2,13:PRINT #6;"PRESS THE selec 

t":POSITION 2,15:PRINT #6;"KEY UNTIL YO 

U" 
1390 POSITION 2,17:PRINT #6;"FIND THE":POSIT 

ION 2,19:PRINT #6; " fTTg^fMIJSI.id:: 1 ' 
1400 POSITION 3,4:PRINT #6 ; NUM 1 : GOSUB 300 
1410 AA=0 

1420 IF PEEK (53279) =5 THEN AA=AA+ 1 : GOSUB 370 
1430 IF PEEK (53279) =3 THEN 1500 

1440 position 0,0:PRINT #6; ■ IBB MBMBBEBEHWEEnS 
tT W BIBSMMS BBKnsnBMBnSEEa ": GOSUB 360 

1450 GOSUB 470 

1460 IF PEEK (53279) =5 THEN AA=AA+ 1 : GOSUB 370 

1470 POSITION 0,0:PRINT #6;"press select to 
C12 SPACES>change answer " : GOSUB 360 

1480 IF PEEK (53279) =3 THEN 1500 

1490 GOTO 1420 

1500 IF AA=NUM1+1 THEN GOSUB 750 

1510 IF AAONUM1 + 1 THEN GOSUB 770:GOTO 1370 

1520 IF AAONUM1 + 1 THEN 1370 

1530 POSITION 0,0:PRINT »6; " r qa 3381 * mWiS 

<4 spaces? ■smiisai RBaBBEHEBgca spaces 

OSUB 360: GOSUB 360 
1540 IF PEEK (53279) =5 THEN 1340 
1550 IF PEEK (53279) =6 THEN 150 
1560 POSITION 0,0:PRINT #6;"press BBBBB for 

menuC17 SPACES} ": GOSUB 360 
1570 GOSUB 360: GOTO 1530 
1580 REM SELECT A NUMBER 
1590 COUNT=INT (RND (0) *9) : GOSUB 460 



i } " : G 
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1600 GRAPHICS 18:SETC0L0R 4 , 5 , 9 : SETCOLOR 0,7 

,5 
1610 POSITION 1,0:PRINT * 6 ; " mTWH I ■ 1 1 nlTF 1 wor 

d":POSITION 2,1:PRINT #6 ; " EEMUMIIIl numb 

er " 
1620 POSITION 0,8:PRINT #6; "PRESS start TO B 

EGIN" 
1630 AA=1 
1640 GOSUB 360 

1650 IF PEEK (53279) <>6 THEN 1650 
1660 GRAPHICS 1B:SETC0L0R , 1 , 1 3 : SETCOLOR 4, 

5,9 
1670 POSITION B,7:PRINT #6;NUM* 
16B0 POSITION 2,3:PRINT # 6 ; " Bg lB— BMH glCgB 

":POSITION 1,4:PRINT »6j "B B HUBBi EZHDi 

QHai" 
1690 POSITION 4,5:PRINT #6; " afflEMSnSBEXE " 
1700 GOSUB 360 
1710 POSITION 1,10:PRINT #6; " B — MOBMB 

K^HJ 1 tl 

1720 IF PEEK(53279) =5 THEN AA=AA+2 : SOUND 0,7 
5,10,B:FOR W=l TO 10:NEXT W:SOUND 0,0,0 

1730 IF PEEK <53279)=3 THEN 1800 

1740 IF AA>19 THEN AA= 1 : POS I T I ON 19,9:PRINT 

#6; " " 

1750 IF AA=1 THEN 1770 

1760 POSITION AA-2,9:PRINT #6;" " 

1770 POSITION AA,9:PRINT #6;C* 

17B0 GOSUB 360 

1790 GOTO 1720 

1800 ANS= ( (AA+1 ) /2) -1 

1810 IF ANS=COUNT THEN GOSUB 750 

1820 IF ANSOCOUNT THEN GOSUB 770:GOTO 1660 

1830 GOSUB 360 

1840 GRAPHICS 18:SETC0L0R 4 , 8 , 1 2 : SETCOLOR 0, 

8,2 

1850 POSITION 1,3:PRINT #6; "VERY GOOD":POSIT 

ION 2,5:PRINT #6;NUM*;" IS "; COUNT 

1860 GOSUB 360: GOSUB 360 

1870 POSITION 2,5:PRINT #6; " OPT I ON M3TT;»SI gCB " 

1880 POSITION 1,3:PRINT #6; "SELECT I ESSMSSIBBZ 

S5K6 5PACE5} «J:Ii]=H5C {7 SPACES}" 

1890 IF PEEK (53279) =3 THEN 150 

1900 IF PEEK (53279) =5 THEN 1590 

1910 GOTO 1890 

1920 REM INTRO MUSIC 

1930 S3=2 

1940 MUSIC=INT (RND (0) *2) +1 
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1950 RESTORE 5300+ ( MUS I C* 1 00 ) 

1960 READ SI, TIME 

1970 IF Sl=-1 THEN SETCOLOR 4 , 8 , 3 : RETURN 

1980 SOUND 0, Sl+3, 10, 7: SOUND 1,S1,10,11 

1990 SETCOLOR 4, S3, 8 

2000 FOR WAIT=1 TO TIME*7:NEXT WAIT 

2010 SOUND 0, 0, 0, 0: SOUND 1,0,0,0:FOR WAIT=1 

TO 3:NEXT WAIT 
2020 S3=S3+2:IF S3>15 THEN S3=l 
2030 BOTO 1960 

2130 REM l:Iilli + *:i^Ji]:: MODE 2 3 ROWS 
2140 REM MODE 1 2 ROWS 
2150 REM MODE 5 32 ROWS 
2160 BRAPHICS 5 

2170 BEGIN=PEEK ( 560 ) +PEEK ( 56 1 ) * 256+4 
2180 POKE BEGIN-1,71 

2190 POKE BEBIN+2,7: POKE BEGIN+3,7 
2200 POKE BEBIN+4, 6: POKE BEBIN+5,6 
2210 POKE BEGIN+38, 65: POKE BEB I N+39 , PEEK ( 560 

):POKE BEBIN+40, PEEK <561 ) 
2220 RETURN 
5400 DATA 122,2,122,2,82,2,82,2,73,2,73,2,82 

,4,92,2 
5410 DATA 92,2,97,2,97,2,109,2,109,2,122,4 
5420 DATA 82 , 2 , B2 , 2 , 92 , 2 , 92 , 2 , 97 , 2 , 97 , 2 , 1 09 , 

4 
5430 DATA 82,2,82,2,92,2,92,2,97,2,97,2,109, 

4 
5440 DATA 122,2,122,2,82,2,82,2,73,2,73,2,82 

,4 
5450 DATA 92,2,92,2,97,2,97,2,109,2,109,2,12 

2,4,-1,-1 
5500 DATA 122,2,109,2,97,2,122,2,122,2,109,2 

,97, 2, 122, 2, 97, 2, 92, 2,82,4, 97, 2,92, 2,82 

,4 
5510 DATA 82,1,73,1,82,1,92,1,97,2,122,2,82, 

1 , 73, 1,82, 1 ,92, 1 
5520 DATA 97,2,122,2,122,2,82,2,122,4,122,2, 

82,2, 122,4,-1,-1 



73 



Applications and Education 



Standings 



Dan and Philip Seyer 



"Standings" is a program for sports fans who would like to create their 
own standings statistics. It was written by a 12-year-old and his father. 

This program will enable you to create professional-looking team 
standings statistics. We developed the program with baseball in 
mind, but you can use it for any sport. You might even adapt it for 
other purposes. (For example, a manager or supervisor might use 
it to keep track of employee performance.) 

Input in Graphics Mode 2 + 16 

Once you type in the program and get it working, you'll see a 
colorful menu in Graphics mode 2. After you type A, you will be 
prompted to enter the date, the name of the sport, the number of 
teams, the team names, and win-loss records. A special routine at 
lines 420 to 499 allows you to enter this data in Graphics mode 2. 
Normally, you can't enter data in this mode without using a text 
window and an INPUT statement. 

Output Data 

After you enter the data mentioned above, the program does the 
rest. It calculates each team's percentage and GB statistic. (GB 
stands for games behind the leader.) Then the program sorts the 
teams into proper order according to winning percentages. 

If you hold down the OPTION key when you select choice B, 
the program will play some random sounds as it prints the sport 
caption at the top of the screen, if you get tired of hearing the 
sounds, just press B without holding down the OPTION key. 
Then the program will skip over the random sound-generation 
routine. 

Updating Statistics 

Statistics are easily updated. To do this, select option B from the 
main menu. You can then change a team's win-loss record by 
pressing W to add a win or L to add a loss. The team's percentage 
changes instantly when you change the wins or losses. You can 
also change the spelling of a team's name, delete an entire team 
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record, or add a new team. The program prompts you step by 
step for the appropriate entries and then modifies or deletes the 
appropriate DATA statements. The program will automatically re- 
sort the teams into proper order after you have updated all the 
win-loss statistics. 

Resaving the Program 

After updating the statistics, be sure to end the program by 
selecting the END option from the main menu. The program will 
then ask you whether you have a program recorder or disk drive. 
You can answer by typing P for program recorder or D for disk 
drive. 

Program recorder. If you have a program recorder, you will be 
asked to position the tape for saving the program. When you 
press RETURN, your program will be saved. 

Disk drive. If you have a disk drive, the program and any new 
data will automatically be resaved to disk when you type D and 
press RETURN. 

Printout 

To get a printout of your favorite league's standings, just type C 
for your menu choice. You will then be prompted to turn on your 
printer. (You may also want to adjust your paper at this time.) 
Then press RETURN to start the printing. 

STAT5 ENTERED 08-28-83 
HOMETOWN LEAGUE STANDINGS 

TEAMS W L POT. GB 

17 1 . 000 — 

Q 

1/2 



1 


TIGERS 


2 


BEARS 


7T 


PADRES 


4 


A-S 


5 


RAMS 


6 


LIONS 


■j 


SENATORS 


3 


WHITE SOX 


Sort Routine 



9 


S 


.529 


Q 


9 


9 


.500 


3 


9 


10 


.474 


9 


S 


11 


. 421 


10 


~7 


10 


.412 


10 


6 


1 1 


. 353 


1 1 


4 


15 


-211 


14 



The teams will be listed in order by percentage from highest to 
lowest. A sort routine at line 900 to 972 does this for you automati- 
cally. Also notice the GB statistics, games behind the leader. The 
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GB statistic is the number of times, a team must beat the first place 
team to move into a tie for first place. 

Self-Modifying Code 

An interesting feature of the program is that it is self-modifying. 
When you enter information, the program creates DATA state- 
ments for you and saves the information in those DATA state- 
ments. (See lines 400 to 420.) This way you don't need a separate 
data file since the data is saved along with your program. 

The program as printed here contains the data for the eight 
teams listed in the sample printout. The sample data are included 
only to get you started. It is suggested that you practice with this 
data and experiment with the program. Then delete each of the 
eight teams and enter your own information. 

Standings 

? "INITIALIZING " 

1 READ Ql , Q2, 03, 04, Q5, Q6, 07, Q8, Q9, Q10:BAV=Q1 

2 READ 012,013,014,015,017,018,020,021,022,0 
24, Q26, 027,030, 033, Q34, Q35, 040,064,065, Q68 
, Q70 

3 READ Q72, 074, 082, Q89, 095, Q97, 0100, Q125, 012 
6,Q128,Q155,Q165,Q190,Q246, Q255, Q260, 0261 , 
0286,0289,0300, 0304,0306 

4 READ Q400, Q425, 0430,0500, Q507, Q51 1 , Q533, 05 
59, Q578, Q630,Q694,Q705,Q752,Q760,O764,Q765 
,0770, Q800, 0842,087 1 , 0895 

5 READ 0898, Q900, Q975: GOTO 450 

6 DATA 1,2,3,4,5,6,7,8,9,10,12,13,14,15,17,1 
8, 20, 21, 22, 24, 26, 27, 30, 33, 34, 35, 40, 64, 65, 6 
8, 70 

7 DATA 72,74,82,89,95,97,100,125,126,128,155 
, 165, 190, 246, 255, 260, 261, 286, 289, 300, 304,3 
06 

8 DATA 400,425,430,500,507,511,533,559,578,6 
30, 694, 705, 752, 760, 764, 765, 770, 800, 842, 871 
, 895, 898, 900, 975 

13 RESTORE O300:READ L , TEMP* : RETURN : REM HMi 

14 TEMP1$="{14 SPACES} " : RETURN 

15 GOSUB 022:P0SITI0N X,Y:IF Y*="7. " THEN ? " 
■":GOTO 017:REM SinnMSSMBMMMMaKSlSniMS 

16 ? #6; "Q" 

17 POSITION X,Y:GOSUB Q21:GET #Q1,A:RETURN 

18 TEMP*="C15 SPACES} ": RETURN 

19 ? "<:38 SPACES} ";: RETURN 
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CLEARS KEY PR 



POKE Q764, Q255: RETURN : REM 

CLOSE #Q1:0PEN #Q 1 , Q4 , Q 1 8 , " K : " : POKE Q752, 
Q1:RETURN : REM M :3 ^1 : ■ ! H ^ - I i T : 1 :] k » Ji ] :» d : I :H* i 
I I=INT (RND (Q0) *Q24) : FOR A=Q12 TO Q0 STEP 
-Q1:S0UND Q0, II, Q2,fi: NEXT A:RETURN : REM C 



RKE5 RANDOM S OUN 



25 IF START = Q0 THEN RETURN : REM f3MSMMMM35in£ 

■EEEEMgaaaa 

26 POSITION X,Y: IF Y*="7. " THEN ? " " 

27 IF Y*<>" 7. " THEN ? #6;" " 

28 X=X-1:TRAP 31 : TEMP$=TEMP$ (Ql , STfiRT-Ql ) : ST 
ART=START-Q1: RETURN 

29 GOSUB Q22:GET #1,A:RETURN 

31 START=Q0: X=XX : GOSUB Q18:RETURN 

32 LL=ORDER <OL) : RETURN 

33 FOR D=YY+Q6 TO YY+Q13: POSITION Ql,D:GOSUB 

19:NEXT D:POKE 0752 , G 1 : RETURN : REM BBOSIS 

gm&sjnMESMUL 

35 POKE 559,0: FOR LNO=START TO LL STEP STEP: 
7 CHR$ ( 125) : REM HHTaKSODECEEg 

36 RESTORE LNO:READ Y$:IF Y*=" CESO" THEN RE 
TURN 

37 ? "{DOWN]";LN0:? :? :? "CONT": POSITION Q0 
,Q0:POKE Q842, Q13: STOP 

38 POKE 0842,012:7 CHR* ( Q 1 25 ) : NEXT LN0:P0KE 
559, 34: RETURN 

39 GOSUB 0289:G0T0 Q533 

41 TEIiPl$="Y":60SUB Q705:GOSUB 32:REM B33BMS 

42 RESTORE LL:READ LNO , TEMP* : GOSUB Q33:POSIT 
ION Q6,YY+Q8 

43 ? "TYPE D TO DELETE "; TEMP$: POSITION 06, Y 
Y + Q10:? "HIT gailEC TO GO BACK TO MENU":G 
OSUB Q22:GET #01, A 

44 IF A< >89 THEN RETURN 

45 GOSUB Q260: TEAMNO=TE AMNO-0 1 : LNO=O304: TEMP 
1*=STR* (TEAMNO) : GOSUB Q898:GOSUB 0400 

46 START=LL:STEP=02: GOSUB Q35: IF TEAMNO=Q0 T 
HEN GOTO Q507 

47 GOSUB Q260: GOSUB Q975: GOSUB Q900:GOTO Q50 
7 

52 GRAPHICS Q18:G0SUB Q190:GOSUB Q24:P0SITI0 
N Q3,Q3:? #6;"turn on printer " : REM [HHEE 
OEjglB31 

53 ? #Q6:7 *Q6:? #Q6;"C3 SPACES>HIT E TO PRI 
NT":GOSUB 022:GOSUB 097:? #Q6 

54 ? *Q6;"HIT l:]=**U:»: FOR MENU":GOSUB Q22:GOT 
O 755 
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55 GOSUB Q97:REST0RE Q895:READ LNO , TEMP* : TRA 
P 750:LPRINT : L I NE* ( 1 , Q24 ) = " STATS ENTER 
ED" : X=LEN (TEMP*) 

56 LINE* (Q26, LEN (TEMP*) +Q26) =TEMP*: LPRINT LI 
NE*:GOSUB Q97:RESTDRE 300:READ L,TEMP*:X= 

(40-(LEN(TEMP*)+10) )/2 

57 LINE* (X,X+L EN (TEMP*) )=TEMP*:LINE* (X+LEN(T 
EMP*),40)=" STANDINGS" 

58 LPRINT :LPRINT :LPRINT :LPRINT LINE*:REST 
ORE D871:READ L,L 

59 RESTORE L:READ L , TEMP* , W , L : LPR I NT :LPRINT 

"{3 SPACES: TEAMStl 1 SPACESJUK3 SPACES3L 
{3 SPACES3PCT. GB ": Y=O0 : GOSUB Q260:LPRIN 
T 

60 GOSUB Q97:F0R I=Q1 TO TEAMNO : Y*= " ) " : RESTO 
RE ORDER ( I ): READ LNO , TEMP 1 * . L W , LL : L I NE* ( Q 
1,LEN(STR*(I) ) )=STR*(I) 

61 LINE* (Q4,Q18)=TEMP1*: LINE* (Q20,Q20+LEN(ST 
R*(LW) ) )=STR*(LW) :LINE*(D2 4,024+(LEN(STR* 
(LL) ) ) ) =STR* (LL) 

62 GOSUB Q261 : LINE* (Q27, Q33) =TEMP* (Ql , Q5) : LI 
NE* (34, Q40) =TEMP1*: LPRINT LINE*:GOSUB Q97 
:NEXT I:RETURN 

70 GOSUB Q260:IF TEAMNO>=Q30 THEN GOTO Q760: 

rem EEEamam 

71 GRAPHICS Q18:G0SUB Q190: POSITION Q1,Q2:? 
ttfr - "EaEBaEESEKaaiBgEg" ■ v *-" ' " - BOSUB Q578 
: LNO=Q306 

72 RESTORE LNO: READ TEMP*: IF TEMP*OSTR* ( LNO 
) THEN GOSUB Q898:G0SUB Q400 : ORDER ( TEAMNO 
+Q1 ) =LNO: GOTO 74 

73 LN0=LN0+Q2: GOTO Q72 

74 TEAMNO=TEAMNO+Ql : TEMP1*=STR* (TEAMNO) : LNO= 
Q304:GOSUB Q400:GOSUB Q900 : GOTO Q507 

95 FOR 1=1 TO 500:NEXT I : RETURN 
97 LINE*=" {38 SPACES: ": RETURN 

99 FOR D=Q6 TO Q22:POSITION Ql,D:GOSUB 19:NE 
XT D:RETURN 

100 GRAPHICS 01B:GOSUB Q190:GOSUB Q22:P0SITI 
ON Q0,Q4:? #Q6; " EEBMSBMMSZSMM2MMMSEESnMM£ 
SMLgKE» EE CH" 

105 GOSUB Q95:G0T0 Q507:REM f ■* i'J SM3 ^--S^T:TH a 
155 POKE 082, Q2: POSITION Q2,YY+Q7:IF KTEAMN 
THEN ? "E 

<7 aana=a> " : rem 

? "E 

<4 a J:T^=fct > " : ? "E l:l=Hl]:i:i 

<:20 gangs:" 

? "re BsanasMisimaj iMMMaaKnsBasti 1 aaaa^n 

? "[= HHS<:31 aJ:Ma-i J " 



157 



160 



DISPLAY NEXT GROUP OF TERMS 



a^TTT. 



ODD OR SUBTRACT HIH5 OR LOSSES 



n^TTT. 
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161 
165 

170 
190 

199 
200 



205 

210 

215 

255 
260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 
271 



272 
273 

286 
287 

288 



? "5 niMMMi^miMr!z.<.2z aassssa ■■ 

POKE Q764, Q255: GOSUB Q22:GET #Q1,A:IF A> 
Q64 OR A<Q72 THEN CLOSE #Q1:RETURN 
GOTO Q165 

POSITION Q5,Q0:7 #6 ; " gB=HED i [UTS ": GOSUB G2 
4: RETURN 

rem [ganBa MoooaaBog 

? :POKE Q752, Ql : GOSUB Q 1 3 : L=LEN ( TEMP* ) : L 

L=Q40- (STNO+L) :LL=LL/Q2: POSITION LL,Q1:F 

OR I=Q1 TO L+STNO 

? " {N> " ; : NEXT I:? " {DOWN} { LEFT >< B> " : POS I 

TION LL,Q2:7 " {VJ ": POSITION LL,Q3:F0R 1= 

Ql TO L + STNO:? " <M> " ; : NE XT I : RETURN 

? "■";:FOR J=Q1 TO LEN(TEMP$):? TEMP*(J, 

J);:GOSUB Q24:NEXT J : RETURN 

POSITION LL+Ql,Q2:FOR J=Q1 TO LEN(TEMP*> 

:? TEMP* (J , J) ;: GOSUB 024;NEXT J : RETURN 

TE MP 1*=TEMP*(Q1, START) : RETURN 

RESTORE Q304:READ LNO , TEAMNO : RETURN : REM 



PUTS NUMBER OF TEftKS INTO TEflMHi 



IF LW=Q0 AND LL=Q0 THEN PCT1=Q0:GOTO 263 
: REM BQ3BH1DEH =*«* =»*M J* «■ J :H ! j fcmiTTgT 
GOSUB Q14:GOSUB Q 1 8 : PCT 1= ( LW/ ( LW+LL ) ) : PC 
Tl= (PCT1+5E-04) 

TEMP* (Ql , Q5) =STR* (PCT1 ) : IF LW=Q0 THEN TE 
MP*=" .000" 



IF TEMP* (Ql , Ql ) = 

II 

IF TEMP* (Q3, Q3) = 

II 

IF TEMP* <Q4,Q4)= 

II 

IF TEMP* (Q5, Q5) = 

■ I 

IF TEMP* (Q2, Q2) = 







THEN TEMP* (Ql , Ql ) = 

THEN TEMP* (Q3,Q3) = 

THEN TEMP* (Q4, Q4)= 

THEN TEMP* (Q5, Q5) = 

THEN TEMP* (Q2, Q2) = 



GB= ( ( (W-L) /Q2) - (LW-LL) /Q2) : IF L=Q0 THEN 
GB=W/Q2-(LW-LL)/Q2 

IF GB<=Q0 THEN TEMP1*=" " : GOTO Q286 

TEMP1*=STR* (GB> : FOR J=Q1 TO LEN(STR*(GB) 

) : IF TEMPI* ( J , J ) < >" . " THEN NEXT J : GOTO Q 

286 

TEMPI* (J, J) =" ": TEMPI* (Q3, Q6) =" 1/2" 

IF TEMPI* (Ql , Ql ) ="0" THEN TEMPI* (Ql , Ql )= 

II II 

IF Y*=" )" THEN RETURN 

POSITION Q26,Y+Q5:7 TEMP* ( Q 1 , Q5 ) : I F Y*< > 

"<" THEN POSITION Q33.Y+Q5:? TEMPI* 

RETURN 
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289 
290 



293 
298 

299 
300 
302 
303 
304 
305 
306 
308 
310 
314 
316 
318 
320 
322 
399 
400 

410 

415 
420 



430 
435 
440 
441 
442 

443 
444 



445 

446 
447 



POSITION 03,08:7 #6;"<;3 SPACES3 ■": RETURN 

GOSUB Q289: POSITION 00,010:7 #6;" 

£3 S P A C E S 5 k J.T.M r.^1 ,\3 ML J j=- :.C f 4 SPACES J ": GOTO 

Q533 
POSITION Q0,Y:7 #Q6;"[HEa 
U" :IF Y = Q8 THEN GOSUB 0770: GOTO 605 
GOSUB Q765:GOT0 610 
RESTORE ORDER (OL) : READ LNO , 
RETURN 

rrrrm j.i ^a j.t-ei 



EDBEB 



TEMPI*, LW.LL; 



REM 

DATA 

DATA 

REM 

DATA 

REM 



HOMETOWN L.EHGU 



300, 

agnnsHSEB 

i i i 1 1 i i 

304, 8,4,31 







a 



DATA 306,LIONSC9 SPACES}, 7, 10 

DATA 308,A'Sdl SPACES:, 9, 10 

DATA 3 1 , [H35Ii3<: 9 SPACES], 9, 8 

DATA 314,RAMS£10 SPACES!, 8, 11 

DATA 316, TIGERS, 17, 

DATA 318, PADRESC8 SPACES}, 9,9 

DATA 320, WHITE SOXfS SPACES}, 4, 15 

DATA 322, SENATORS, 6, 1 1 

DATA {ESCJ, 0,0 

GRAPHICS 00: POKE 0559 , Q0 : SETCOLOR 

04:7 CHR$ (Q125) : REM 



Ql , Q9, 



CREATES DHTfi LINES 



7 " {DOWN} " ; LNO; " DATA "; LNO ;","; TEMP 1 *; " 
, " ; LW; " , " ; LL: 7 : 7 :? "CONT" 
POSITION Q0,Q0:POKE 0842 , O 1 3 : STOP 
POKE Q842, Q12: SETCOLOR 1 , 09 , 1 : Y* = " " : R 
ETURN 

W=Q0: START=00: XX=X : GOSUB Q18:P0KE Q752,0 
i:REM EESinMX MIMSSKMS SEEEKEEEE 
GOSUB Q15:IF A=Q155 THEN GOTO 446 
IF A=126 THEN GOSUB 25:GOTO Q430 
IF START=PROP THEN GOTO 0430 
IF W=01 THEN GOTO 445 

IF LINE$="IN" AND A=Q27 THEN W=Q1:P0KE O 
694, 0128: GOTO 0430 

IF LINE*< >"LINE" THEN POKE 0694,00 
IF Y*="7." THEN 7 CHR$ (A) : X = X+D1 : POSITION 
X, Y:START=START+0 1 : TEMP* (START, START+Q1 
) =CHR* (A) : GOTO 0430 

7 #06; CHR* ( A) : X=X+Q1 : POSITION X,Y:START= 
STflRT+Ql : TEMP$ (START, BTART+Q1 ) =CHR$ (fi) : G 
OTO 0430 

IF Y*<>"7. " THEN POSITION X,Y:7 #6;" " : GO 
TO 448 
POSITION X,Y:7 " " 
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448 
449 
450 

455 



500 
507 



508 

509 

510 

51 1 

514 
515 
516 
517 

519 
520 
522 
523 
526 

527 

530 
533 

535 
536 
575 



576 
578 
580 



IF S 

POKE 

DIM 

Q30) 

REST 

BOS 
MNO: 
REM 
V*=" 
6: ? 
#Q6; 
STAR 
ding 
? #Q 
d" : 6 
BDSU 
AMNO 
POKE 
Q64 
IF A 
IF A 
IF A 
REST 
" {ES 
IF A 
IF A 
GOTO 
REM 
GOSU 

Q19 



TART = 
Q694 
TEMPI 
, LINE 
ORE Q 
UB Q2 
READ 
EEMU 
" : X X = 
#Q6; " 
"E 
T=l: G 
s " ; : G 
6; "E 
OSUB 
B Q26 
: POSI 
Q764 
OR A> 
=69 T 
= Q65 
= Q68 
ORE Q 
C> " T 
= 66 T 
= 67 T 
Q51 1 

B 875 
0: POS 



Q0 THEN GOSUB 
, Q0: RETURN 
* (Q14) , TEMP* (Q 
* (040) , V* < 1 ) 
800: READ Y$:IF 
60:RESTORE Q80 
W, W, L, L: ORDER ( 

dmhe 

Q0:GRAPHICS Ql 
E enter new te 



look at standin 



Q18 

15) ,Yt(Ql) 

Y*< >" {ESC 
0:FOR 1=01 
I ) =W: NEXT 

8:G0SUB Ql 
ams" : GOSUB 



OSUB 
OSUB 

Q24: 

0: ? 

TION 

, Q25 

Q70 

HEN 

THEN 

THEN 

306: 

HEN 

HEN 

HEN 



Q24 
Q24 

8aiE m 

? #Q 

#Q6; 

Ql, 

5: GO 

THEN 

GOSU 

GOT 

GOT 

READ 

GOTO 

SAV = 

GOSU 



? #Q6;"E printo 
:GOSUB Q24:? ttQ 



iou have entere 



Q9: ? # 
SUB Q2 

GOTO 
B 1000 
526 
Q70 
TEMP* 
Q100 
Ql : GOS 
B 52: G 



6; "HA':.t--«l" 
2:GET #Q1, 
Q51 1 
: GOTO Q507 



ORDER ( 

}*' THEN 
TO TEA 
I 

90:? #Q 
Q24: ? 

li t stan 

6; "H en 

;TE 

A: IF A< 



: IF TEMP* ( 

UB Q630:GO 
OTO Q507 



Ql , Ql ) = 
TO Q507 



LINE 
0P = Q 
Ql , S 
GOSU 

O . D 

X = Q3 
MN0 = 
THE 
LNO = 
T) 

LN0 = 
EP = Q 
LN0 = 
RAPH 
ION 
? #Q 
LINE 
TEMP 



*=" LI 
14:G0 
TART) 
B Q25 
■f tea 
: Y = Q8 
VAL(T 
N GOS 
Q300: 



■aassa 

: LL=Q0: LW=Q0: G 
ITION Ql , Q3: ? 

NE" :P0KE Q694, 
SUB Q425:TRAP 



RAPHICS Ql 
#Q6; " HiWJ 



8: GOSUB 



Q128: X=Q3: 
527: TEMPI* 



Y=Q4: PR 
=TEMP*< 



5:P0SITI0N Q1,Q7:? #Q6;"enter n 

ms" 

: PROP=Q2:GOSUB 

EMP*) : IF TEAMN 

UB 289:GOTO 5 

GOSUB Q400:TEM 



Q425: TRAP 
1O>Q30 OR T 
!3 
1P1*=TEMP* ( 



39: TEA 
EAMN0< 1 



Ql , STAR 
=398: ST 

NO+Q2: G 
0: POSIT 



Q304-.GOSUB Q400: START = Q306: LL 
2: GOSUB Q35: GOSUB Q14 
Q304:FOR I=Q1 TO TEAMNO:LNO=L 
ICS Q18:P0KE 559 , Q34 : GOSUB 19 

Q1,Q2 

6 ; " i33S3EEMa^aKnm et ; i 

*=" IN" :Y=Q3:X=Q3:PR0P=Q14: GOSUB Q425 
1*=TEMP*:IF START=Q0 THEN GOTO Q578 
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605 


606 


610 


613 


614 


615 


629 


630 



#06;" enter no. o-f win! 



631 



632 
635 
640 

650 



654 
655 

659 
660 

661 
676 
677 
678 
679 
680 

681 
682 
695 
696 

697 
698 
699 



GOSUB Q42 
IF LW<Q0 

OF LOSS 



POSITION 00, 05: 

": GOSUB Q24 

X=Q3: Y=Q6: POSITION X,Y:PR0P=03: 

5:Y=Q8:TRAP Q770 : LW=VAL ( TEMP* ) : 

OR l_W>999 THEN GOTO Q770 

POSITION 00, 08:? #06;" ENTER NO. 

ES": GOSUB Q24 

X=Q3: Y=Q9:P0SITI0N X,Y:G0SUB Q425:Y=Q10: 

TRAP Q765:LL=VAL (TEMP*) : IF LL<Q0 OR LL>9 

99 THEN GOTO Q765 

IF Y*=«* a THEN RETURN 

POKE 702, Q64: GOSUB O400:NEXT I : GOSUB 089 

8: GOSUB 0975: GOSUB 0900: GOTO Q507 

REM BEQaKB aOBIIBHSBE M Ba M lEBMania aiE 

Y*=" ": PCT1=Q0: RESTORE Q895:READ LNO,TEMP 

*:POKE 82, <40- (LEN<TEMP*) +14) ) /2: GOSUB 7 

90:7 " i.-i^M=<:»=l:^a " : TEMP* 

STN0=Q12:IF PEEK < 53279 ) <>Q3 OR V$="Y" TH 

EN GOSUB 200:POSITION LL+01,Q2:? TEMP*;" 

■aOICfiHIIS" : PCT 1 = 1 

IF V*="Y" THEN Y*="<" 

IF PCT1=1 THEN GOSUB Q24:G0T0 650 

GOSUB 200:GOSUB 215:REST0RE 302:READ TEM 

P*:GOSUB 210 

RESTORE Q871:READ L,L:RESTORE L:READ LNO 

, TEMP*, W, L: POSITION Q0.Q5:? " {4 BEglgSP P 

hteh<:i0 aj:M*u g{3 aanH^> b<: 3 asESBm HSBSM 

■■aixs nj;w=a> ■■ 

IF V*<>"Y" THEN START=1 

Y=Q0:GOSUB Q260:FOR I=START TO TEAMNO:RE 

STORE ORDER ( I ) : READ LNO 

Y=Y+Q1 : POSITION 01,Y+Q5:? I 

POSITION Q4,Y+Q5:READ TEMP*:? TEMP*:READ 

LW:POSITION 19,Y+Q5:? LW:READ LL 
POSITION 23,Y+Q5:? LL:GOSUB 0261 
IF I>24 THEN TEMP2=Q4 : GOTO 680 
IF I>16 THEN TEMP2=Q3: GOTO 680 
IF KQ9 THEN TEMP2=Q 1 : GOTO 680 
TEMP2=Q2 

IF IOQ8 AND K>16 AND IO024 THEN NEXT 
I 

YY=Y:IF V*="Y" THEN 705 
GOSUB Q155 

GOSUB 1000: IF A=66 THEN GOTO Q705 
IF A = Q65 AND KTEAMNO THEN GOSUB 99:Y = Q0 
:NEXT I 

IF A=67 THEN RETURN 
IF A=Q70 THEN GOTO 41 
IF A=Q68 THEN 727 
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700 
705 



706 
707 
708 
709 
710 

711 

712 

713 
714 



715 
716 

717 
718 
719 
720 
721 
722 



723 
724 
725 



726 
727 



728 



729 
730 



GOSU 
GOSU 
TER 
= Q17 
TRAP 
MP*) 
IF T 
N GO 
IF T 
GOTO 
IF T 
GOTO 
IF T 
OTO 
IF T 
POKE 

TO 
PRES 

rp II 

HEN 
ENU" 
7 " C 
GOSU 

IF O 
GOSU 
AND 
GOTO 



IF 
IF 
IF 
IF 
IF 
GOSU 
SUB 
IF L 
IF L 
POSI 
L + D5 
B Q2 
REM 
TEMP 
? "E 
= YY + 
LINE 
*: RE 
LL: L 
RETU 
IF A 



B 
B 

TE 
: Y 

Q 
: I 
EM 
TO 
EM 

Q 
EM 

Q 
EM 
Q7 
EM 

Q 
AD 
S 
TH 

a 

HA 
B 

1 + 
L> 
B 

A< 
9 
= 8 
= 7 
= 7 
= 8 
= 7 
B 

08 
L< 
W< 
TI 

■ *? 

61 



Q16 
Q33 
AM 
= YY 
705 
F O 
P2 = 
Q7 
P2 = 
705 
P2 = 
705 
P2 = 
05 
PI* 
82, 
D W 

a" ; 

EN 
TO 

"p 

NGE 
298 
5: ? 
Q8 
29: 
>76 
85: 
7 T 
6 T 



5:G0T0 695 

: Y* = "■/." : POSITION Q6,YY + 
NO. THEN HIT lri=*tU:i: " ; P 
+Q8:P0KE Q752,Q1 
:GOSUB Q425:G0SUB Q33:0 
L>TEAMNO THEN GOTO Q705 
Q3 THEN IF 0L<Q17 OR OL 
05 
Q2 THEN IF 0L<09 OR 0L> 

Ql THEN IF 0L>08 OR 0L< 

4 THEN IF OL>30 OR 0L<2 



19: 

98: 

00 

00 

ON 

LL 
: GO 



= " y " 
02: P 
IN" : 
: REM 
E TO 
SUBT 
RESS 

ANO 
: STE 

" -C6 
THEN 
IF A 

AND 
GOSU 
HEN 
HEN 
HEN 
HEN 
HEN 
GOSU 
GOSU 
THEN 
THEN 
19,0 

m II II 

TO 7 



THEN RET 
OSITION Q 
? "PRESS 



URN 

2, YY+07: ? 

B TO ADD L 



Q7:? "EN 
R0P=Q2: X 

L=VAL (TE 

>Q24 THE 

16 THEN 

Ol THEN 

5 THEN G 



"PRESS C 
OSS":? " 



WIN LOSS CHANG 



SUBTRACT 
RACT LOSS 

EBJE! T 
THER TEAM 
P=OL: FOR 

SPACES] " 

0L=0L-Q8 
<>Q155 AN 

A<>87 TH 
B 29:G0T0 
LW=LW-Q1 : 
LL=LL-Q1 : 
LL=LL+01 
LW=LW+Q1 
GOSUB Q33 
B 997:0L= 
B 0900: RE 

LL = Q0 

LW = Q0 
L+05:? LW 
: GOSUB Q2 
16 



RESS a T 
C FOR M 

3 STATS" : 
POSITION 



WIN":? " P 
":? "PRESS 
O "; 

SC8 SPACES 
1=1 TO YY: 
; : NEXT I 
: GOTO 715 
D A<>83 AND A<>77 
EN 716 

720 
GOTO 723 
GOTO 723 



: POSITION 
STEP: GOSUB 
TURN 



; " " : POSIT 
1 : Y=OL : Y* = 



08, D-02: 
0400: GO 



ION 23,0 
"< " : GOSU 



CHANGES TEftM NftM 



l$="Y":GOSUB Q705: POSITION 06, YY+07: 

NTER OaaiEgE FOR TEAM # " ; OL : X=Q 1 3 : Y 

08: PR0P=Q14 

*=" IN" : Y*="7. " : GOSUB 0425: TEMP1*=TEMP 

STORE ORDER (OL) : READ TEMP* , TEMP* , LW , 

NO=ORDER (OL) : SOSUB 0400 

RN 

OQ155 THEN Y=OL: GOSUB 272: GOTO 715 
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735 GOSUB Q33:P0SITI0N 00 , Y Y+Q6 : GOTO 681 
750 TRAP 750:POSITION Q0,D3:? #06;" turn on 
printer!":? #06:? #Q6;"<:4 SPACESJthen h 
it re. ": POSITION 00,06 

755 ? #6; "(IB SPACES } " : GOSUB Q22:GET #Q1,A:IF 

A< >80 THEN RETURN 

756 GOTO 55 

760 POSITION 00,08:? tt6;"sorry, you have 

'4 SPACES} already entered the maximum no 
. o* teams":GOTO 0511 

765 POSITION 03,09:7 #6;"<:3 SPACES} ": GOTO 61 



767 
770 

775 

790 

799 
800 
802 
804 
806 
808 
810 
812 
814 
871 
875 

880 



GOTO 56 
POSITION 0: 
6 



06: 



#6;" {3 SPACES} ": GOTO 60 



SEE ERROR 



"; PEEK ( 195) : POKE Q75 



2, 00: END 

GRAPHICS O0:SETCOLOR 02 , Q 1 2 , 04 : SETCOLOR 

04, 03, 06: RETURN 

REM BEEM2MMSnMaS3K3n3SIMSI ^BMnS& 

DATA 800,316,4,860 
DATA 802,310,4,860 
DATA 804,318,4,860 
DATA 806,308,4,860 
DATA 808,314,4,860 
DATA 810,306,4,860 
DATA 812,322,4,860 
DATA 814,320,4,860 
DATA 871,316,4,860 

GRAPHICS 018:GOSUB 1 90 : POS I T I ON Q0,Q2:? 
#Q6;"<:4 SPACESJenter date":? #6;" EXAMP 

le : EBaoaeg " 

? #06;"<:i4 SPACES} IjE" : ? #6;"C11 SPACES}GH£ 



885 


890 


895 


898 


899 


900 


901 


902 


903 


910 



LINE*="LINE" : POKE 0694,0128 

X=Q6: Y=Q6: PR0P=Q8: GOSUB Q425: LN0=Q895: TR 

AP 885:G0SUB Q255:G0SUB Q400:RETURN 

DATA 895, QEPHIHEE, 9, 10 

GRAPHICS 018:? #Q6:? #Q6:? #Q6; " sortin 

g teams. " : ? #Q6 

? #6;" {5 SPACES > BBBSBaBHM " « GOSUB Q95: 

RETURN 

RESTORE ORDER (Ql ): READ L , TEMP* , START , PRO 

P: TEAM=ORDER (01 ) : ST ART=ST ART-PROP : GOSUB 

Q260:REM BD 3 ■ ^.llii * j 7 1 a 

IF TEAMNO=O0 THEN RETURN 

FOR 1=01 TO TEAMN0-Q1 : REM aHHMEEIIlHIB 

FOR J=I+Q1 TO TEAMNO 

RESTORE ORDER ( I ): READ LNO , TEMP* , W , L 
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915 IF W=Q0 THEN PCT 1 =Q0 : BOTO 925 

920 PCT1= ( W/ (W + L) ) 

925 RESTORE ORDER ( J ): READ LNO, TEMP$, LW.LL 

927 IF LW=Q0 THEN PCT2=Q0:SOTO 940 

930 PCT2= (LW/ (LW+LL) ) 

940 IF LW-LL>START THEN TEAM=ORDER ( J ) : START= 

LW-LL 
945 IF PCT2=PCT1 AND W<LW THEN GOSUB 980: GOT 

O 971 
950 IF PCT2>PCT1 THEN GOSUB 980 

971 NEXT J:NEXT I 

972 STEP = Q2: START = O800: LL = 860: GOSUB Q35:G0SU 
B Q260: LN0 = 798: REM JgSMSnilZgMEinSMaKSSMMI. 

973 FOR I=Q1 TO TE AMNO : LNO = LNO + Q2 : TEMP 1 * = STR 
* (ORDER < I >>: GOSUB Q400:NEXT I : GOSUB 0260 
:TEMPl$=STR$(TEfiM) 

974 LN0=871 : GOSUB 400:RETURN 

975 POKE 0559, Q0: RESTORE 0306: FOR I=Q1 TO TE 
AMNO 

976 READ LNO , TEMP 1 $, LW , LL : ORDER ( I ) =LNO : NEX T 
I 

977 RETURN 

980 PROP = ORDER(I) : ORDER ( I ) =DRDER ( J) :ORDER(J) 

=PROP: RETURN 
985 IF A=0155 THEN 2000 

990 IF A<>83 THEN 720 

991 IF A=83 THEN POKE 764,255:GET #1,A:G0T0 
718 

995 GET #l,ft:BQTO 717 

997 POSITION Q6.YY+Q7:? "ENTER DATE THEN HIT 

aMBEC " = PR0P = Q8: Y*="7." : X=16: Y=YY+Q8: POK 
E Q752,Q1:LINE$="LINE" 

998 POKE 0694, Q12B: RESTORE ORDER ( DL ): READ LN 
O, TEMPI*: GOSUB 0425:LN0=0RDER(0L) : GOSUB 
Q400: GOSUB 0255 : LN0=Q895 

999 RETURN 

1000 POKE 82,2: IF A<>69 THEN RETURN 

1005 GOSUB 790:? "DO YOU HAVE A [SSMEMK3SSSBM O 
R A I :J:I.Ir1:T:1SM :]=<*.]:] >3 =re ? " : ? : 7 " 
-C8 SPACES>(HIT [HMiggil FOR MENU)" 

1010 POSITION 16,5: INPUT TEMP$:TRftP Q507 

1015 IF TEMP* (Ql , Ql) ="D" OR TEMP$(Q1 , Ql ) ="E" 
THEN 1050 

1020 ? :? " Z7 SPACESJHIT l:i=*iU:]: TO SAVE" 

1025 CSAVE : END 

1050 7 :? " £9 SPACESJHIT EBEPIIC TO SAVE":GOS 
UB Q22 

1055 GET #Q1,A:IF A<>155 THEN 1055 

1060 TRAP 775:SAVE " D : STAND I N6 . SAV ": POKE 752 
, 0: END 
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2000 

2004 
2005 

2006 
2007 
2008 
2009 
2010 



2015 

2016 
3001 
3002 
3003 
3004 



:RESTORE ORDER ( DL) : READ LNO,TEMP 
ORDER (OL) : GDSUB Q400:V$="Y" 



OL=STEP 

1*: LNO= 

REM 

POKE 752. 2: BRAPHICS 0:? 



ROUP OF TERMS TO DI5PLH' 



PICK TEOK5 TO CHANGE 5THT5 O 



oasa 



? " <: 8 s 

? " c 8 s 

? " <: 8 s 

? ■■ i 8 s 

TRAP 20 
£4 SPAC 
OICE< 1 
GOSUB C 
2010 
V*=" Y" : 
START=1 
START=9 
START=1 
START=2 



PACES} 1 ) 
PACES] 2) 
PACESJ3) 
PACES] 4) 

10:? "<:upj<: 

ESX3 LEFT] 



TEAMS ( 1-8) " 

TEAMS (9-16) " 

TEAMS ( 17-24) " 

TEAMS (25-32) ": ? :? :? 

SPACES1YDUR CHOICE: 
: INPUT CHOICE: IF CH 



OR CH0ICE>4 THEN 2010 
HOICE+3000: IF START >TEAMNO THEN 

BOTO 630 
: RETURN 
: RETURN 
7: RETURN 
5: RETURN 
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- CalCalc: 

Computerize Maur 
Diet 



Charles Brannon 



This program can help you lose weight by cutting calories. Be sure to 
consult your doctor before using this program or any other weight-loss 
technique. 

Calorie counting is important in most diet plans. Unfortunately, 
the process of looking up every item of food you eat is discourag- 
ingly tedious. And even if you conscientiously keep track of calo- 
ries, how do you know how much progress you're making? 

Your body burns a certain number of calories per day. The 
number depends on your sex, build, and activities. In order to 
lose weight, you must eat fewer calories than your body needs, 
forcing it to convert fat tissue into carbohydrates. On the other 
hand, if you eat more calories than your body burns in one day, 
the excess is converted into fat. 

3500 Calories = 1 Pound 

In order to lose one pound of fat, you have to miss 3500 calories. 
In order to gain a pound, you have to have an excess of 3500 calo- 
ries. This is not on a daily basis; calories accumulate. So, if you ate 
1000 more calories each day than your body used, you would gain 
one pound in about three and a half days. 

Since any calculation is spread over many days, it can be 
hard to see progress, or to forecast how long it will take to shed 
excess weight. The computer is of great aid here. 

"CalCalc" asks you a number of questions, such as your sex 
and age, to determine how many calories you need each day. You 
then enter everything you've eaten at the end of the day, selecting 
foods and quantities from a list (a menu, appropriately enough). 
Just press the letter corresponding to the food you ate. If you don't 
see a certain food, press RETURN to see more items. 
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Adding to the Menu 

What if you ate a food not on the list? This is not too hard, since 
we've included only a sample selection of foods, found in the 
DATA statements from lines 1140 and up. To customize this list to 
your preferences and habits, just purchase a pocket-sized calorie 
counter (available at most grocery-store checkout counters). Then 
add to or change the DATA statements. 

There is one DATA statement for each food. The first item on 
the line (after the word DATA) is the name of the food. Make the 
name less than 20 letters long. The next item, preceded with a 
comma, is the number of calories in an average serving, followed 
by a comma, and the description of the average serving, such as a 
1 CUP or one 8" EAR. The last DATA statement (line 1500 here) 
should be END, 0,0 which marks the end of the list. 

After you've pressed the letter corresponding to the food 
you've eaten, the computer will display the quantity (such as one 
cup) and calories of an average serving. You enter the multiple or 
fraction in decimal of the quantity given. For example, if you 
drank two glasses of milk for breakfast, enter a 2, for two one-cup 
portions. If you had half a medium orange, enter 0.5. CalCalc 
then displays the calories for the food consumed, and the cumula- 
tive total of calories. You continue to enter foods for everything 
you've eaten. 

Guesstimating 

You can also approximate calories. For example, if you ate a 
chicken-filet sandwich, you could select T, chicken (one 4-ounce 
serving), and K, two one-slice portions of white bread. Or, if you 
can look on the wrapper of the product, you can enter the calories 
directly Just press the number sign, #, instead of a letter, and 
enter the calories literally. 

The Moment of TKith 

After you've finished entering all the foods, the computer is ready 
to forecast weight loss. It bases this forecast on the assumption 
that you will eat about the same number of calories each day. Just 
enter the number of days you want to "look ahead," and CalCalc 
will tell you how much weight you will have lost. If you're eating 
too much, it will, with equal placidity, show you how much you'll 
have gained. 

CalCalc makes dieting much easier. It goes beyond mere 
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automation of a calorie counter by letting you see the effect of 
changes. By cutting down on meals and checking your total calo- 
ries with CalCalc, you can see if you'll lose weight. 

CalCalc 

100 GRAPHICS 0iPOKE 752,1:PQKE B2,0iGOSUB 10 
20: DIM A* < 1 ) , FOOD* (19) , AMOUNT* (10) 

105 OPEN #1,4,0, "K" 

110 PRINT " {DOHN> 15M;i:n:T? : CONSULT YOUR DOCTO 
R BEFORE" 

120 PRINT "C9 SPACESJUSING THIS PROGRAM OR A 
NY" 

130 ? " {9 SPACESJOTHER WEIGHT-LOSS TECHNIQUE 

II 

140 ? "<DOWN>ARE YOU GALE OR SEMALE?" 

150 GET #1 , A: A*=CHR$ (A) : IF A*<>"M" AND A*<>" 

F" THEN 150 
160 SX=0:IF A*="F" THEN SX=1 
170 IF SX=0 THEN 200 
180 ? " {DOWN!! ARE YOU PREGNANT" ;: GOSUB 980: IF 

YES THEN PREG=1 
190 7 " {DOWN} ARE YOU NURS I NG " ; : GOSUB 980: IF 

YES THEN NU=1 
200 GOSUB 1020 

210 ? "ENTER IF NOT KNOWN:":? 
220 TRAP 220:? "(UP}{DEL LINEJNUMBER OF CALO 

RIES CONSUMED?0<2 LEFT }";: POKE 752,0: INP 

UT CAL:POKE 752,1:TRAP 40000 
230 IF CAL<0 THEN PRINT " {DOWN3 { BELL 3- HII BE-BO 

GEO" :GOTO 200 
240 IF CAL>=4500 THEN PRINT " { DOWN) " ; C AL ; " CA 

LORIES? ARE YOU SURE ";: GOSUB 980: IF 1-YE 

S THEN 200 
250 IF CAL THEN 730 
260 PX=0: PY=10: GOSUB 1020 
270 FOR 1=1 TO 26 
280 READ FOODS, CL, AMOUNT* 
290 IF FOOD$="END" THEN 330 
300 POSITION PX,PY:? CHR* ( I + 1 92 );":"; FOOD* : P 

Y=PY+1 
310 IF 1=13 THEN PX=20:PY=10 
320 NEXT I 
330 REM 
340 IF PEEK(20)>60 AND PEEK (20) < 120 THEN POS 

ITION 2,23:? "ENTER ED OR CPBPHS OF FOOD" 

350 IF PEEK (20) > 120 AND PEEK (20) < 180 THEN PO 
SITION 2,23:? "PRESS EHQEE TO GO ON 
C5 SPACES)"; 
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360 


IF 




ESS 


365 


IF 


370 


SET 




) A 




"#•• 


380 


IF 


390 


NX = 







400 


GOT 


410 


RES 


420 


IF 


430 


IF 


440 


FOR 


450 


REA 


460 


NEX 


470 


SOS 


480 


PRI 


490 


PRI 


500 


PRI 




D" 


510 


PRI 


520 


TRA 




FRA 




: PO 


530 


IF 


540 


IF 




DO" 


550 


PRI 




QU 


560 


PRI 




: CA 


570 


? " 


580 


SET 




N 5 


590 


RES 


600 


BOS 




ITY 


610 


? " 




T: " 



620 

630 
640 

650 
660 
670 



PEEK(20)>180 THEN POSITION 2,23:7 "PR 
E3 WHEN D0NE<4 SPACES] " ; : POKE 20,0 

PEEK (764) =255 THEN 340 
#1 , A: A*=CHR* ( A) : IF (A*<"A" OR A*>"Z" 

ND A*< >CHR* < 155) AND A*<>"*" AND A*< > 
THEN 340 

A$OCHR*(155) THEN 410 

NX+1:IF FOOD*="END" THEN RESTORE :NX= 

O 260 

TORE 

A*="#" THEN 600 

A*=" *" THEN 660 

1=1 TO NX*26+ASC (A*) -64 
D FOOD'S, CL, AMOUNT* 
T I 

LIB 1020 

NT "FOOD: " ; FOOD* 

NT "CALORIES PER "; AMOUNT* ;":"; CL 
NT "{DDWN}ENTER QUANTITY OF ABOVE FOO 

NT "CONSUMED, USING A MULTIPLE OR":? 

P 520:PRINT "{UP] {DEL LINEJA DECIMAL 

CTION?0{2 LEFT)" ;:PDKE 752,0: INPUT OU 

KE 752,1:TRAP 40000 

QU=0 THEN 590 

QU<0 THEN PRINT " -C D O W N > i B E L L 3 EGHiEEBZ 

:FOR W=l TO 500:EOTO 470 

NT " {DOWN] CALORIES OF " ; FOOD* ; " : " ; CL* 

NT " CDOWN] CALORIES CONSUMED SO FAR:"; 

L=CAL+CL*QU: PRINT CAL 

{2 DOWNJPRESS EBuGEC TO CONTINUE..." 

#1 , A: A*=CHR* <A) : IF A*< >CHR* ( 1 55 ) THE 
80 

TORE :NX=0:BOTO 260 
UB 1020:? "{DOWN>ENTER ABSOLUTE QUANT 

■ ■ 

{DOWNJDF CALORIES FOR FOOD NOT ON LIS 
: 7 

TRAP 620:? "CUPXDEL LINE>?0{2 LEFT>";:P 

OKE 752,0: INPUT CL:POKE 752,1:TRAP 40000 

IF CL=0 THEN NX=0:BOTO 260 

IF CL<0 THEN ? " {DnWN> {BFI. L> n=l Jifcfc»d=IW5 " : 

FDR W=l TO 500:NEXT W:BOTO 600 

QU=l:GOTO 560 

SOSUB 1020 

PRINT "TOTAL CALORIES CONSUMED :"; CAL 
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680 ? " {2 D0WN3D0ES THAT SOUND REASONABLE";: 

GOSUB 980 
690 IF YES THEN 730 
700 ? "{DOWN}DO YOU WANT TO":? "RE-ENTER THE 

CALORIES" ;: GOSUB 980 
710 IF YES THEN CAL=0:GOTO 260 
720 PRINT " (CLEAR? " : END 
730 GOSUB 1020:? :? 
740 TRAP 740:PRINT "(UPXDEL LINEJWHAT IS YO 

UR AGE?20<3 LEFT} ";: POKE 752,0: INPUT AGE 

: POKE 752,1: TRAP 40000 
750 IF AGE<20 OR AGE>70 THEN PRINT "{DOWNJEE 



U MUST BE BETWEEN 20 AND 



760 IF AGE<20 OR AGE>70 THEN FOR W=l TO 300: 
NEXT W:GOTO 730 

770 IF AGE>=20 OR AGE<30 THEN CPD=3200:IF SX 

THEN CPD=2300 
780 IF AGE>30 AND AGE<40 THEN CPD=3104:IF SX 

THEN CPD=2231 
790 IF AGE>40 AND AGE<60 THEN CPD=2768:IF SX 

THEN CPD=1990 
800 IF AGE>60 AND AGE<70 THEN CPD=2528:IF SX 

THEN CPD=1587 
810 CPD=CPD+1000*NU+450*PREG 
820 ? "{DDWNJQN A SCALE OF D-g" 
830 ? " 1=M0DERATELY ACTIVE, 5=VERY ACTIVE" 
840 ? "HOW ACTIVE ARE YOU?" 

850 GET #1 , A: A*=CHR* < A) : IF A*< " 1 " OR A*>"5" 
THEN 850 

860 CPD=CPD+VAL (A*) *200 

870 GOSUB 1020:? " (DOWN* EST I MATED ENERGY EXP 

ENDITURE":? "IN CALORIES IN ONE DAY:";CP 

D 
880 ? "<DOWN>TOTAL CALORIC INTAKE IN ONE DAY 

: " ; CAL 
890 DF=CAL-CPD 

900 ? " {DOWNJNUMBER OF DAYS TO PROJECTED" 
910 TRAP 910:? "WEIGHT LOSS /G A I N? 1 £2 LEFT}"; 

:POKE 752,0: INPUT ND:POKE 752,1:TRAP 400 

00 
920 IF ND<1 THEN 910 
930 ? " (DDWNJAT THE CURRENT CONSUMPTION, YOU 

SHOULD" 
940 IF DF<0 THEN PRINT "LOSE " ; : GOTO 960 
950 ? "GAIN "; 

960 PRINT INT (ABS (DF*ND) 73500) ; " POUNDS." 
970 END 
980 ? "? ( Y/N) : " ; 
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990 

1000 
1010 
1020 
1030 



BET # 

N" TH 

YES = 

YES = 

PRIN 



1040 



1110 
1 120 
1 130 
1 140 
1 150 
1 160 
1 170 
1 180 
1 190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 



N" 
: R 



THEN 
ETURN 



SP 
N> 
{4 
B> 




A*=CHR* <A> : IF A*<>"Y" AND A*<>" 
90 
A*=" 

clear: 



PRINT "EE":RETURN 



<3 

{G} <. 

? : P 

PRIN 

RETU 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 



ACESX2 NJ{3 SPACES!! {NJ 
C3 SPACES} {2 N> 

SPACES} {3 NT" 

{ F >{ G 3 { G 3 { B 3- { 2 G 3 
3- t G > { F 3 { G 3- { G 3- { B 3 
<G>" 
bU:Td^l > <B3- CG3 {H>^tJ> 

> < 3 aana^> {btcgxhtm 

ESXBJ BtN>{VJ«<:B> ■ 

<: b : mi n > € v > h-c b > ■ t b j ■ 
esj{b> ■ <:g>b<:b> ■ <b> 
■ cgjb<:b> ■ {B3- ■" 
KB) {4 blJ:M=fci l CB> >CM> 
}<B> <4 iJJ:Mi-D tB> BIM3- 



1G3B -CG3-B CG> 

^ > <G>B <G3 



ED 13 aSBB^il 



CALORIE CflLCULHTO 



E, 1 13, 1 ' ' CUBE 

E, 27, 1 OZ 

6, 1 CUP 

7, 1 CUP 

, 1 CUP 

MED. 

7,1/2 MELON 

ED. 

108, 1 CUP 

6, 1 CUP 

3,1 SLICE 

READ, 55, 1 SLICE 

T, 316, 3 OZ . 

Z. 

,4 OZ. 

ICE 

OZ. 
,3 OZ. 

OZ. 
P 

s. 






92 



Applications and Education 



1360 DATA CARROTS, 68,1 CUP 

1370 DATA POTATOES, 120, 1 MED. 

1380 DATA BEET GREENS, 39,1 CUP 

1390 DATA LETTUCE, 7, 4 SM. LEAVES 

1400 DATA SPINACH, 46,1 CUP 

1410 DATA BAKED BEANS, 295,1 CUP 

1420 DATA LIMA BEANS, 152,1 CUP 

1430 DATA CORN, 92,8'' EAR 

1440 DATA PEAS,74,.5 CUP 

1450 DATA TOMATOES, 30, 1 MED. 

1460 DATA 47. BEER, 150, 12 OZ. 

1470 DATA BLACK COFFEE, 9,1 CUP 

1480 DATA COLA BEVERAGES , 83 , 6 OZ. 

1490 DATA POTATO CHIPS, 108, 10 2 ' : 

1500 DATA END, 0,0 



CHIPS 
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Castle Quest 

I Timothy G. Baldwin 



This entrancing, well-designed game offers you the best of both worlds. It 
has the drama, variety, and mystery of a good adventure game combined 
with the fast-paced excitement of an arcade game. Your job is to rid the 
kingdom of the three evil wizards. All this would be easy if the wizards 
weren't so zealously guarded by servants whose names reflect their 
-personalities: bat-wingers, blinkers, chokers, crushers, and stompers. 

You are in love with the Princess Dilayna and have asked her 
father the King for her hand in marriage. Her father does not 
particularly like you. He challenges you to demonstrate your 
worthiness by capturing the three evil wizards that have been 
ravaging the kingdom for years. They each live in their own castle 
protected by their servants — the bat-wingers, the blinkers, the 
chokers, the stompers, and the crushers. The castle rooms are 
rumored to be deadly, the untouchable walls, fast-moving 
enemies, and no exits. You reluctantly accept the King's challenge. 

Fortunately, a friendly magician gives you a cloak that makes 
its wearer invisible. But the cloak's power works only for a limited 
time in each room. Once the time is up, you are instantly 
destroyed. The magician also gives you a magic spell that tempo- 
rarily freezes all servants in a room. But you must use this spell 
with care: it will consume a portion of the cloak's power each time 
it is used. 

Armed with these aids, you leave on your quest. The King 
wishes you good luck — or did he say good riddance? 

The Three Wizards 

The object of "Castle Quest" is to capture the three wizards. To 
reach each wizard, you must pass through the ten rooms of his 
castle. The rooms are inhabited by the wizard's servants, who 
move about quickly in an unpredictable manner. The higher 
numbered rooms in each castle have more servants (up to 32). The 
servants move progressively faster as you complete more rooms. 
You have three lives to capture the first wizard. Capturing a 
wizard earns you three additional lives. Touching a servant or a 
room wall or failing to exit a room within the allotted time will 
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cause loss of a life. You cannot exit a room until you capture both 
door keys in that room by touching them. One key is invisible 
until the other key is touched. 

Once both keys are captured, the room's exit appears — 
unless you are in a castle's tenth room. In this case, the wizard 
appears, and you must capture him before you can escape. Also, 
once you capture the first key, your presence becomes known to 
the wizard, and he causes room wall segments to move to block 
your escape. You must move quickly to avoid destruction. 

Secret Passages 

A counter at the top of the screen signals the amount of "cloak 
time" remaining. Pressing the joystick fire button will temporarily 
freeze the action, permitting you to move safely past a tight 
corner, but you lose 50 units of cloak time each time you use the 
freeze option. The room number and the number of your 
remaining lives are displayed at the top left of the screen. Your 
score — a measure of your ability to elude the many dangers 
involved — is displayed at the top right of the screen. 

Room patterns, key locations, servant locations, and wizard 
placement are randomly generated, so be prepared to touch keys 
partially embedded in walls, move through weird mazes, etc. 
Sometimes a secret passageway is created at the screen bottom or 
in a room's right wall. You may use these passageways for a 
quick, easy escape. 



Cas 


>tle Quest 

REM {5 
C0=0: CI 
3=8: C9= 
MTDP=PE 
REM B»; 






14 
= 5 : 
16: 






1 id 
20 


asTsWsfcl}- ISIalSMtlMsftVJ-afeX 

=1:C2=2:C3=3:C4=4:C5 
9: C10=10: C15=15: CI 6 = 
EK (106) : MISSION=Cl 


C6=6: C7=7 
C256=256: 


: C 
RA 


O 


<:t>**tf:l*+4:t*(ii: 


■suit***: 


|a< > 


C 1 6 : ? " 




4 


BOSUB 1080:GOSUB 770 


<: GRAPHICS 





(CLEAR} " : POKE 752 , C 1 : SETCOLOR C2,C0,C0:SO 

SUB 310 
50 T1=C8:GQSUB 1 1 50 : T 1 =C 1 6 : GOSUB 1150:G=C0:L 

=C3:Q=C0:C=C0:X1=C0:SCGRE=C0 
60 GOSUB 320 

70 rem C4 aaaaBBP imsssmsssnsmamsaanM 

C9 i-1J:M41 } 
80 GOSUB 970: GOSUB 450: GOSUB 1340: GOSUB 1500 

:POKE l56S,Cl:P0KE 77,0: POKE 53243, 60: POK 

E 5 3 2 4 9, W l 
90 IF C=C10 THEN GOSUB 340 
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100 

110 

120 

130 
140 

150 

160 

170 
180 

190 

200 

2 10 

220 
230 

240 

250 

260 
270 

280 

2 90 

3 00 
310 
320 
330 



X=USR ( 1767) : FDR I=C0 TO 100: NEXT I s POKE 
1563, F 

rem t6 aaaa m * saa * i m ■■* ana :t:ism mssb 

G=G-C1:IF (PEEK ( 1566) < >C0) OR (G< 00) THE 
N 4 00 

IF PEEK (203) >204 THEN 520 

POSITION 23- (G>999) - (G>99) - <G>C9) , 00: ? C 
HR$ (B) ; B; CHR$ (B) : IF 6<100 THEN SETCOLOR 
C2, 04, 00 

X=PEEK (53260) : IF (X-X1)>=02 THEN POKE 53 
250,W2:POKE 53249,00: IF PEEK ( 706 )< >N THE 
N GOSUB 380: POKE 706, N 

IF X-X1>=C4 THEN POKE 5325 1 , W3 : POKE 5325 
0, 00 

IF X>=06 THEN GOSUB 260 

IF STRIG(C0)=C0 THEN POKE 1 563 , C 1 : G=G-50 
:FOR 1=0 TO 250: NEXT I : POKE 156e,F 
CHBASE=RAMT OP -08-08 *( INT (G/2) =G/2) : POKE 
756, CHBASE 

IF PEEK ( 706 )=N THEN IF RND(C0)>0.95 THEN 
PLOT INT (RND (00) *38) , INT (RND (00) *22) : GO 
SUB 240 

IF STICK (00) < >15 THEN SOUND 02,100,06,08 

: SOUND 02,00,00,00 

GOTO 120 

REM <3 UlJ:TiJ^1 > Bfci:tiIih*^:MIM|-T0in>M;MIJi*<:| a 

<3 aaiH^> 

FOR 1=00 TO 30: SOUND 00 , I , C0 , C 1 5 : NEXT I: 

SOUND 00, 00, 00, 00: RETURN 

REM M3nSEMME3tMMBniMn3ZnM3sin33nM 

C4 EEESM& 

IF C=C10 THEN IF X<>14 THEN RETURN 

FOR 1=00 TO C5:P0KE SC + C 1 *40+ I * 40-C 1 , 00 

:NEXT I: POKE 53278 , 255 : FOR 1=015 TO 00 S 

TEP -0 1 -.SOUND 00,010,010,1 

SOUND 01 , 1 1 , C 10, I +0 1 : SOUND 02,12,010,1+0 

2:S0UND 3 , 1 3 , 1 , I +3 : NE X T I : FOR 1=0 TO 3: 

SOUND I , 00, 00, 00: NEXT I 

POKE 53251 , 00: POKE 53250 , 00 : POKE 53278,2 

55: RETURN 

REM —I I I ■ ■*:iJ.]:i::r:t + ■[■!:■ :I.H*»^ 153 

POSITION 010+01,010:7 "Wait -for game set 
up" : RETURN 

C=C+C1 : POSITION 010,010:? "Get ready for 
Room "; C: C=C-C1 : RETURN 

rem wEsaassnMassMMMiiaKJiEESMSzs th snin sm i 
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340 PL=<RAMTOF-9)*256:PL=PL+52+INT(RND<C0)*l 
51) -.RESTORE 350: FOR I=C0 TO 1 1 : READ Z : PO 
KE PL+ I , Z : NEXT I 

350 DATA 102, 36, 1 26, 90, 126, 1 26, £6, 90, 60, 60, 3 
6, 102 

360 W3 = 70+INT (RND (C0) * 130) : POKE 707, F: RETURN 



370 RE 

380 SO 

FO 

OU 

390 RE 

r t 

400 FO 
KE 
: I 

410 PO 
R 

420 PO 

•-> 

jL 

C0 

430 PO 

GO 



440 



450 



460 

470 
4B0 
4 90 



5 00 
5 10 
520 

530 
540 



M 
UND 
R 1 = 
ND C 
M 

am 



¥rrrwH'rru»-i»ii]ii>ai;i-ii*^:i=« 

02, 20, C10, C10: SOUND C 1 , S0 , C 1 , C 1 : 
TO 30:NEXT I : SOUND C 1 , C0 , C0 , C0 : S 
2, C0.C0.C0: RETURN 



USER FOILS TO ESCAPE ROOI 



R 1 = 
156 
F Q 
KE D 
ETUR 
KE 7 
00: S 
,C0, 
KE D 
SUB 



C0 T 
S, CI 
THEN 
L + Cl 
N 

56, 2 
OUND 
C0: T 
L + Cl 
320: 



ta I nl I — I BH I I I UJ:Mii ; 
O C3:P0KE 53248+ I , C l : NEXT I : PO 
:? " (CLEAR* " : SETCOLOR C2,C0,C0 

RETURN 
5, C7: POSITION C4,C10:IF Q THEN 

24:7 "TOUBH LUCK !": FOR I=C0 TO 
C0, C6, 100, C8: NEXT I : SOUND C0, 
2 = C1 

5, C2: L=L-Cl : 7 " (CLEAR* " : C=C-l : 
C=C+l:BOTO 80+500* <L<=C0) 



RE 
C8 

{7 
A = 
C0 
IN 
B = 

* ( 
E = 
F = 
G = 
6, 
l = 
SE 

* ( 
RE 

<:b 

Q = 



M 



DETERMINE NEXT ROOM'S 



SPA 

gcxx 



CESJ 



INT ( 
) ) *C 
T (CI 
33 + C 
OC3 
INT ( 
C2+ < 
100 + 
C0: P 
C0 

TCOL 
C=l0 
M ■.! 
SPA 
CI : G 
3 SP 



Cl6* 
16 + C 
6*RN 
-C6* 
) +C8 
RND ( 
OC9 
C*50 
OKE 

OR 2, 
) , C : 



9 BEBZBBa> 

unnnima assBasmsnnsMsnM 

R N D < C ) )*Cl6+C6:M=INT(Cl6 
:2:N=INT(Cl6*RND(C0))*Cl6+ 
ID (C0> ) *Cl6 + C3 



(C>5) : C=C+Cl : D=C 



_2 + C2* IOC 
* (OC6) +C16* (OC9) 
0) *5+7) : POKE 1763, E 
) +C2* <MISSION-Cl ) 
: COLOR BrPOKE l578,3l:P0K 
756, RAMT0P-C8: POKE 53278, 



*RND < 
C4: P = 

l ) +C4 



E 156 
255: X 



c 7 * c c = 7 ) + c : 

RETURN 



SCORES FROM O ROO 



:* (C = 8) +C l * < C = 9) +C3 



CESJI 
OSUB 

aces: 



Dzmnmsf 2 : 

400: GOSUB 
AT TABOY • " 



410: POKE 7! 

Q = C0 



6, 224: 



FOR I=C0 TO C5:S0UND C0 , C 1 , 50 , C8 : POKE 7 
05,C10:POKE 706, C 10: POKE 7 10, C 10: POKE 7 1 
2,C10:FOR J=C0 TO 50:NEXT J 

SOUND C0, C10, 100, C8: POKE 705,C0:POKE 706 
,C0:POKE 710, C0: POKE 712, 00: FOR J=C0 TO 
50: NEXT J: NEXT I 
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560 
570 
580 

590 



600 



610 
620 



630 
640 

650 



660 



670 

680 
690 

7 00 



7 10 
720 
730 

740 
750 
760 

770 

780 
790 

800 



0, C0, C0: POKE DL+C15,C2:7 " 
OSUB 320: SC0RE = 3C0RE + M I SS I ON * I 

10) 

HEN GOTO 580+1 10* <MISSI0N=C3> 



PflCESBEMD R QUEST ROUTIN 



SOUND 00,0 
{CLEAR} " : B 
NT ( (G*C) /C 
IF C=C10 T 
GOTO B0 
REM C2 

is aagggB ? 

? " {CLEAR} " : POKE DL+C9 , C6 : POKE DL+11,C6: 
POKE DL+13, C6: POKE DL+ 1 5 , C6 : POKE 707, C0: 
IF L<=C0 THEN 660 

POSITION C2,C4:7 " BBSS STSBBSSMSSESSSB " i PQSI 
TION 26, C5:? "YOU HAVE ": POS I T I ON C3,C7:? 

"COMPLETED YOUR" 
POSITION 27, C8:? " QUEST " : C = C0 : L = L + C3 
POSITION C5,15:7 "Press aHETOH to contin 
ue":P0SITI0N C5,17:? "Press BESMEBM3S3MJ 
■ to quit" 

POSITION C5,19:7 "SCORE: "; SCORE 

POKE 53279, C8: IF PEEK < 53279 )< >C6 THEN 64 



? " {CLEAR} " : POKE DL + C9 , C2 : POKE DL+11,C2: 

POKE DL+13, C2: POKE DL+ 1 5 , C2 : M I SS I ON=M I SS 

ION+ <L>C0> *C1 : GOTO 60+620* (L<=C0) 

POSITION C7,C4:7 M SORRY J " i POSITION 24, C5 

:? "you blew i t . " : POS I T I ON C2,C7:7 "ques 

ts completed ";MIS3I0N-C1 

GOTO 620 



RUN 
REM 

r t 

GRA 
,C4 
D a 

POK 
POS 
FOR 
0: P 

GOT 

POK 

REM 

C8 

RES 

A: P 

RET 

DAT 

DAT 
0,2 



USER WINS THE GAME ROUTINE! 



PHICS 2:SETC0L0R C2 , C0 , C0 : POS I T I 
:7 #6; "YOU WON!":? "Press ESEXIMm 
nd then 'RUN 7 to"; 

E 752,1:7 :? "begin a new game." 
I TION C1,C7:7 #6; "final score " ; 
1=255 TO C0 STEP -CI: SOUND C0.I 
OKE 7 12, I: POKE 7 10, I: NEXT I 

740 

E 156S, CI : RUN 



PUT R VERTICAL BLANK INTERRUP 



ON C6 



SCORE 
,10,1 



SPACES: ■:MIJi*<:ia»N:MJ:Tm 

TORE 790:FOR 1=1536 TO 

OKE I, A: NEXT I 

URN 

A 173,4,208,20 1,4,240,2 

8, 141 , 36, 2 

A 173,100,228,14 1,37,2, 

08, 76, 98, 228 



1536+247: READ 



, 208, 22, 1 
141 , 30, 6, 



73, 99 



141, 
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810 DATA 0,162,2,202,240,42,138,72,173,10,21 

0,41,7, 10, 170 
820 DATA 189,0,1,133,206,133,208,232,189,0,1 

, 133, 207, 133, 209 
830 DATA 32,148,6,165,207,157,0,1,202,165,20 

6 , 15 7,0, 1 , 104 
840 DATA 170,208,211,162,5,173,120,2,202,240 

, 197, 24, 106, 176, 249 
850 DATA 72,224,2,240,8,224,1,203,13,230,203 

, 208, 2, 1 98, 203 
860 DATA 165,203,141,0,208,203,32,169,0,224, 

4, 240, 8, 168, 145 
870 DATA 204,230,204,76,134,6,160,7,145,204, 

19 8,204, 160,0, 185 
880 DATA 240,6,145,204,200,192,3,208,246,104 

,76,83,6,160,0 

8 9 DATA 152, 145,2 6, 173, 10,210,41, 1,2 8, 15, 

169, 56, 141 , 201 , 6 
900 DATA 169,233,141,204,6,14 1,210,6,208,13, 
16 9,24,141,201,6 

9 10 DATA 1 6 9 , 1 5 , 1 4 1 , 2 4 , 6 , 1 4 1 , 2 1 , 6 , i 7 3 , 1 , 

2 10,41,1,208,2 
920 DATA 169,40,141,205,6,216,0,165,206,0,0, 

133, 206, 165, 207, 
93 DATA 0,133, 2 &7, 177, 206, 24 0,3, 165, 2 8, 133 

, 206, 165, 209, 133, 207 
940 DATA 169,11,145,206,96,104,168,162,6,169 

,7,76,92,228,60 
950 DATA 126,90,126,90,102,126,60 



C9 S P A E 3 y j <^--» gamma * 1 3 i.iJ:M^l } 
970 POKE 559, 62: POKE 54279 , RAMTOF-G 1 6s POKE 5 

324S,C1:P0KE 53277,03 

9 80 PL=RAMTOP- 1 2: Y=PEEK (38 ) : Z=PEEK ( 39 > : POKE 

88, 00: POKE 89, PL: POKE 106,PL+C3:7 " 
{CLEAR} " : POKE 33, Y: POKE 39, Z 
990 POKE 106 , PL+1 2: PL=PL *C256+ 1 20 : IF 0=00 OR 
C = C10 THEN Z= (RAMT0P-C9) *C256: FOR I = Z T 
Z+255:P0KE I, 00: NEXT I 

10 FOR 1=00 TO 7 : F K E PL+I , PEEK ( 1776+1 ! :N 

EXT I 
1010 POKE 203, 60: POKE 204 , PL- I NT ( PL / 0256 )* 02 

5 6 : P K E 2 5, I N T ( P L / C 2 5 6 ) 
1020 PL= (RAMTOP-1 1 ) *C256: PL=PL+52+ I NT (RND (00 

) * 1 51 ): RESTORE 1030:FOR I=C0 TO C7:READ 
Z : POKE PL+I , Z : NEXT I 
103 DATA 0,6,15,249,255,166,16 0,0 
1040 W 1=70+ I NT (RND ( 00 > * 130 ) : PL= (RAMTOF'-C 1 0) * 

0256: PL= P L+ 5 2+INT (RND (00)* 151): RESTORE 

1030:FOR 1=00 TO 07 
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10 50 

1060 
10 70 

1080 
1090 

110 

1110 

1 120 
1 130* 

1 140 

115 

1 160 

117 

1 180 

1 190 
1200 
1210 
1220 
12 30 
1240 

1250 



1260 
1270 
1280 
1290 
13 00 
1 3 1 

13 20 
13 3 

1340 



I : W2=70+INT (RND 
T2=C1 THEN C = C- 



53250, C0: RETURN 



PRCES3TITLE PAGE ROUTIN 



READ Z:PDKE PL+I,Z:NEXT 

( C ) * 1 3 ) : P D K E 7 5 , M : I F 
CI : T2 = C0 

POKE 53249, C0: POKE 
REM £4 

i7 grange: 

GRAPHICS 18:SETC0L0R C2 , C0 , C0 : POKE 708, 

202-.POSITION C5,C2:7 #C6 ; " CASTLE ": POS I T 

ION C9,C4:7 #C6; "QUEST" 

DL=PEEK<560)+C256*PEEK(561) : POKE DL+ 13, 

C2 

POSITION C3,CS:° #C6;"How many rooms c a 

n you survive?" 

FOR I=C0 TO C3:P0KE 708, C0: SOUND C0,£0, 

C10,C8:FOR J=C0 TO 100: NEXT J : SOUND C0, 

160, CI 0, C8: POKE 708,202 

FOR J=C0 TO 100:NEXT J:NEXT I 

SOUND C0, C0, C0, C0: RETURN 

REM aMB33M SSSSSnaKSSSIISMIMSMBaESM 

•C9 spaces: tanHSElK 22 aarasj 

RESTORE 1 160: CL= (RAMTOP-T 1 > *C256: FOR 1 = 

CL+C8 TO CL+95:READ A:FOKE I,A:NEXT I 

DATA 204, 5 1 , 204, 5 1 , 204, 5 1 , 204, 51 , 102, 15 

3, 102, 153, 102, 153, 102, 153 

DATA 136, 34, 136, 34, 136, 34, 136, 34, 63, 17, 

68, 17, 68, 17, 68, 17 

DATA 36, 146, 73, 36, 146, 7 3, 36, 1 4 6 , 2 "^ ^ 



'>, 36, 146,73, ' 
:39| jZZizi ) 255, 255, 255 
195, 10 2, 60, 24, 2 4, 0, 0, 
255, 255, 195, 195, 195, 19 5, 255, 



iijj 



'-"= r ,' r . 



55, 0, 0, 0, 0, 



255, 255 



■I i. JJ i 

DATA 

DATA 

DATA 

DATA 24,24,6 0,24,2 55, 199, 199, 255 

DATA 24,255,0,0,0,0,0, 

FOR 1=123 TO 224: POKE CL+ I , PEEK ( 57344+ I 

) : NEXT I 

DL=PEEK (560) +C256*PEEK (561 > : IF T1=C16 T 

HEN RESTORE 1260:FOR I=CL+56 TO CL+95:R 

EAD A: POKE I, A: NEXT I 

DATA 0,0,0,24,24,60,102,195 

0,0,60,60,60,60, , 

0,0,255, 255 , 255 , 255 , , 

60, 24, 24, 24, 60, 60, 0, 

24, 24, 24, 24, 24, 24, 24, 255 
IF T1=C16 THEN FOR I=CL TO CL+C7:P0KE I 
,C0:NEXT I 
RETURN 
REM IM I I I | ^■:IiIilZMSr:y J 4=«^d:M:T:^J»n» 

C9 i i i i mm bh i i aanaiaj 

? " CCLEAR3 " : POKE 752, CI 



DATA 
DATA 
DATA 
DATA 
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1350 
1360 

1 3 7 

1330 

1390 

1400 

14 10 
14 20 
1430 
1440 
1450 
1460 
1470 
1480 
1490 



1500 

1510 
1520 
1530 

1540 

1550 



PLOT 
AWTO 
X = C1 
= 13: 
4 
IF R 
1 1 : D 
POSI 
M 

POSI 
RE: R 
ON I 
4 3 0, 
RETU 
PLOT 
X = X + 
X = X + 
GOSU 
60SU 
GOSU 
POP 
REM 
€3 £ 



C0,C0:DRAWTO 39,C0:DRAWT 
C0,23:DRAWTO C0,C0 
0: Y=C0: Z=C7: BOSUB 1400: X= 
GOSUB 1400: X=C10: Y=C1 6: Z = 



N D ( C ) < . 5 
RAWTO RND O 
TION C6,C0 



T 10 
ETU 
NT < 
144 
RN 

X, 
C10 
20: 
B 1 
B 1 
B 1 
: GO 



C0; 



THEN PLOT RND ( 
:S)*31+C8, 11 
? C.-POKE 704, A 

7 L: POSITION 3 



N C9. 

RN 

RND (C0) *C8+C1 ) GOSUB 1 

, 14 5 0, 1460, 1470, 1 4 S 

Y:DRAWTO X , Y+ Z : RETURN 
:GOSUB 1420:RETURN 
GOSUB 1420:RETURN 
420:GOSUB 1430:RETURN 
430:GOSUB 1430:RETURN 
420:GDSUB 1460: RETURN 
TO 1360 



O 39,23:DR 

C15: Y=C5: Z 
C7:G0SUB 1 

C0) *31+CB, 

: POKE 705, 

0, C0: ? SCO 

4 10, 1420, 1 



NIZfiRD'5 5ERUHHT5 PLOTTIHl 



RND HDDRE55 CHLCUL 



INE. ADDRE55E5 KEP 



DMHi 



{9 

at 9 



SPACES] 
SPACES} 



J:T»i:< 



SC=PEEK(88)+C256*PEEK(89):FOR 

-CI: IF INT (RND (C0) *C4) >C2 THE 

H=SC+40+INT(RND(C0) *279) : BOTO 

H=SC+680+INT<RND(C0)*239) 

HI=INT(H/C256) :L0=H-HI*C256:P 

*C2,L0:P0KE H,E 

POKE C256+I*C2+C1 , HI : NEXT 1:1 

N RETURN 

FOR I=(D-C1) TO 31:P0KE C256+ 

4:NEXT I : RETURN 



I=C0 TO D 
N 15 2 
1530 

OKE C256+I 

F D=32 THE 

I*C2+C1 , 25 
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Scriptor: An Atari 
Word Processor 



Charles Brannon 



"Scriptor" is an easy-to-use, full-scrolling, character-oriented, 
multifunction word processor, requiring an Atari 800XL or 400/ 
800 with a minimum of 32K of memory (40K recommended), an 
Epson MX-80 or Atari 825 printer, and an Atari 810 disk drive. It 
is programmed in both BASIC and machine language. For instruc- 
tions on typing in the program, see the section under Typing It In. 

Through the Ruby 

Computers don't just calculate with numbers — they can also 
work with text. Five-inch disks can replace stacks of files. 
Computers can sort, search, select, and update any kind of infor- 
mation. They can focus information. In this sense, the computer is 
like the ruby crystal in a laser. Ordinary random light waves are 
transformed and concentrated through the ruby into a tight, 
powerful beam. Computers can do the same for information. 

Word Processing 

Electronic text is more "liquid," easier to work with, than words 
solidified on paper (hard copy). This is what makes word 
processing special: the extrordinary editing power it gives you. 
Distinctions between a rough draft and a final draft are meaning- 
less; the work is typed, changed dynamically, and stored to disk. 
It can then later be recalled, revised, and printed out. Very little 
retyping is necessary. What a boon for anyone who writes. 

Converts to word processing immediately notice an improve- 
ment in their writing. The entire manuscript becomes "alive," not 
committed to paper. Changing a word or a sentence, inserting a 
line or a paragraph are all accomplished with ease. For example, 
take just one key, the backspace key (called RUBOUT on some 
computers or terminals). When this key is struck, the last char- 
acter typed is erased from the screen. Compare this to the 
frequently elaborate typewriter correction schemes. 

Besides the disk file, which has already been mentioned and 
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which will be explained in greater detail later, an important 
concept in word processing is the cursor. Named after the clear 
plastic slide on a slide rule, the cursor shows you where the next 
character you type is going to appear. It usually looks like an 

underline, , or a solid square. Users familiar with any computer 

have already encountered the cursor. The computer itself doesn't 
need a cursor; but since you can type anywhere on the screen, the 
cursor is vital so that you can know where you are. 

The cursor can be moved up, down, left, and right with 
special keys, usually with arrows on them. To correct the 
following line: 
The quick brown dox junped! 

you would either press backspace ten times, erasing the text as 
you go, or press cursor-left ten times. The cursor moves over the 
characters without erasing them. It is then resting on the d: 

The quick brown Box junped 

You can correct the error by typing/, which overstrikes (replaces) 
the d. 

The quick brown fEx junped 

The cursor can then be moved to the end of the line (ten cursor- 
rights), and typing resumed. 

This sounds harder than it really is. Cursor editing becomes 
second nature after only hours of use. The cursor UP/DOWN keys 
can reach lines of text above and below the current line. It is like 
rolling a typewriter's platen up or down, but with one important 
difference — the "paper" is one continuous, long sheet. 

Getting Specific 

Two very special functions are insert and delete. Insert lets you add 
text in the middle of a line, by pressing INSERT to insert spaces in 
the text, and then typing in the word. For example: 

To be or to be, that is the question.! 

The cursor is placed on the second to, and INSERT is pressed four 
times (three for n-o-t, and one for a space): 

To be or ■ to be, that is the question. 

The word not is then typed: 

To be or notlto be, that is the question. 
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Delete is used to erase text. As distinguished from mere back- 
spacing or spacing over a word, delete closes up the space after the 
deleted word. 

Take out a word! 

Take Hut a word 

1. (cursor is moved to "o") 

Take fflt a word 

2. (DELETE typed; "o" disappears, "ut a word" moves left.) 

Take B word 

(DELETE is typed four times.) 

Insert and delete can also act on words, sentences, lines, or entire 
paragraphs in a similar way. 

Disk Files 

A file is simply a permanent record of your text. When the 
computer's power is turned off, it forgets everything except what 
is "burned" (in ROM memory) into it permanently. Your text is 
obviously not "burned in," or you couldn't ever change it. If you 
have a blackout, or a fuse blows, say good-bye to your text. 

Catastrophes aside, you certainly don't want to leave your 
computer on all the time, or keep the computer tied up with your 
text forever. Fortunately, you can save your text on disk, ready for 
any later revisions. You can type it one time, save your text, and 
print it out when convenient. 

Since a disk can store more than one document (unless it's 
very long), you and the computer must have some way to distin- 
guish and separate one file from another. This is usually done via 
a directory, a list of filenames. You access a file by giving the 
computer the file's name. 

"Scriptor," the word processor program at the end of this 
article, has many features usually found only in professional 
word processors, but it lacks a few features such as search and 
replace, justification, data base merge, etc. Also, it is written in 
BASIC, so it can be rather slow at times. It is, however, aided by 
several machine language subroutines for time-critical situations 
such as disk input/output and some editing features. 

Typing It In 

Program 1 is the Scriptor program itself. Type it carefully, since it 
contains many critical machine language DATA statements. Extra 
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time spent in typing it in will reward you with a smoother, bug- 
free word processor. Remember to use the Listing Conventions. 
Use the Atari logo key to enter inverse video. 

To give you more memory for text, Scriptor deletes a substan- 
tial portion of itself after it initializes (sets up). Don't worry — the 
program is busy running while the screen flashes; it just takes 
awhile. The setup lines from 5000-6999 are automatically erased. 

If you quit the program and try to run it again, the program 
will automatically try to re-RUN itself anew from disk. If you've 
changed disks, you'll need to reload it yourself. You should SAVE 
the program with the filename "D:SCRIPTOR" or change line 455 
appropriately. Be sure to SAVE Scriptor after you've typed it, 
before you run it, or you will find a sizeable chunk of your typing 
erased when you exit. You can free up more memory for text by 
deleting the "help" function. Take out all lines from 1570 to 1700 
and remove line 775. If you'd rather keep this handy aid, leave 
these lines alone. 

If you get the message "Error in DATA statements" when you 
run the program, you need to check your typing of the machine 
language DATA statements at the end of the program. Also make 
sure you haven't typed a letter O for a zero (the zero is thinner 
than the O). 

If you have an Atari 825 printer, you will need to type in the 
lines in Program 2. This will replace the lines used for the MX-80 
with lines applicable to the 825 80-column printer. If you have 
another printer, refrain from using special characters such as 
underlining, and you will probably be able to get one of the sets of 
lines to work. 

Getting Started 

Scriptor is a full-scrolling, character-oriented word processor. The 
use of cursor control keys is similar to normal Atari editor func- 
tions, with these exceptions. 

I. <RETURN> is used only to force a carriage return, as at 
the end of a paragraph, or to print a blank line. The computer will 
format your line when you print it out, so just type continuously. 
Do not press <RETURN> at the end of each line. Pressing 
<RETURN> prints a back-arrow at the end of the line, and erases 
all text to the end of that line. 

II. Insert and Delete character (CTRL-INSERT/CTRL- 
DELETE) work on whole "paragraphs." A paragraph is a block of 
lines from the cursor to a "back-arrow." If there is no back-arrow, 
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one is assumed at the end of text. Therefore, Insert and Delete can 
be quite slow if you don't have a back-arrow somewhere. 

III. Insert and Delete line work on the entire document. The 
screen will blank during this operation. This is normal and speeds 
up the process, as it can be slow on long documents. 

IV All TAB controls work normally, just a little slower. 
<CTRL-K> will clear all tab settings. 

V <CLEAR> will not clear the screen. It is used to erase all 
or part of the text. Press <CLEAR> <A> to erase all text. Press 
the Atari logo key to abort the erase function. 

VI. The break key is disabled. Use <CTRL-Q> to exit the 
program. 

VII. The ESC key enters the "mini-DOS." (See below.) 

VIII. The console keys are "live"; see a description of their 
functions later. 

IX. The Atari logo key is disabled for normal typing. Within 
prompts, it acts as an "abort" key. 

Getting Control 

Since the Atari is not a dedicated word processor (that means it's 
not just a "word processing machine" like a Lanier, but is, rather, a 
general-purpose computer), it does not have special keys to acti- 
vate word processing functions. Instead, the <CTRL-key> 
combination is used. For example, to quit the program, you 
would hold down <CTRL> and press <Q>. The CTRL key 
stands for "Control" — it is like a special shift key. The keys are 
linked mnemonically (easy to remember) to the commands they 
stand for, such as <P> for Print Text. To get a list of the 
commands and what they stand for at any time, just press 
<CTRL-?> (hold down CTRL and press the question mark) for a 
HELP menu. See Table 1 for a quick-reference chart of the 
commands. 

Going Around the Block 

An important feature in a word processor is block move and 
delete. Scriptor lets you define a series of up to 23 lines. You can 
then move these lines to another place in the text with Line Dupli- 
cate, or delete the defined lines with <CLEAR/D> (Erase: 
Defined lines). To define a block of lines, just place the cursor on 
the first line and press <CTRL-D>. A flashing arrow will appear 
to the left of the line. Press cursor-down, and another symbol will 
appear underneath. Press cursor-down until all the desired lines 
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have an arrow to their left. Then press<RETURN>. If you make a 
mistake, just try again, or press cursor-up while defining. 

To copy these lines to another place, position the cursor at the 
place you want the lines to appear, and press <CTRL-L>. If you 
haven't defined any lines, this command will be ignored. Note 
that you can press this key more than once to make many copies 
of the lines. You may want to delete the defined lines after you 
move them. Press <CLEAR>. You will see the prompt "ERASE:". 
Press <D>. The lines will be deleted, just as if you used Delete 
line multiple times. 

A Mini-DOS 

The ESC key activates the mini-DOS. It lets you look at the direc- 
tory and scratch, rename, lock, or unlock files. When you press 
<ESC>, you will see: 

QJirect or y, Ho ck,G0n lock, Bena me, Scratch? 

Press the appropriate key. For all except the directory, you will 
need to enter a filename. The cursor, a half box, will be at the top 
of the screen. The only editing key you can use here is backspace. 

Remember that you can abort any time before pressing 
<RETURN> by pressing the logo key. While the directory is 
listed, you can press <ESC> again to keep the directory on the 
screen while you use one of the other functions. You can also 
press [SELECT] (see later) to save or recall a file while looking at 
the directory. If you get an error message at the top of the screen, 
check the disk and your entry and try again. 

For the Record . . . 

To save or recall a document, press [SELECT] . The screen will 
display: 

gave or [Jjecall 

Press the appropriate key, enter the filename, and the document 
will either be stored or retrieved. If you Recall a document, it loads 
starting at the line the cursor is on. This lets you add text to a 
document. Press START twice to home the cursor to the start of 
the text. If you get an error message, check to see you have the 
right disk, consult the DOS Manual, and try again. Remember that 
your filename must start with a capital letter and be followed by 
up to seven capital letters or numbers. You can optionally put a 
three-character extension on the file if you separate it with a 
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period, for example; EDITOR. DOC, DRAFT3.CGB, DUNGEON. 
MAE etc. You should not enter the "D:" prefix. 

Printer a la Mode 

Different printers offer special print densities and formats such as 
boldface, underlining, super- and subscripts, double-width, 
condensed, proportional spacing, etc. To underline a word or 
phrase, enclose it in <CTRL-brackets>. In other words, 
<CTRL-,> is underlining on, and <CTRL-.> is underlining off. 
Underlining works only on the 825 printer. If you have GRAF- 
TRAX installed in your MX-80, underlining produces italics. 

The following is an advanced technique. You can define up 
to ten special characters and print them at any spot in your text. 
To define a character, set up a format line (see the discussion of 
format lines, below) with <CTRL-F> and enter your definitions 
such as 1 = 123:2 = 125:3 = 27, etc. You can then output the CHR$ 
code of the defined characters by embedding a caret (" A ") in your 
text, followed by the number (for example, a 4).. If you don't put a 
number after it, a caret will print; otherwise, the character associ- 
ated with the number (0-9) will be output. You can also output 
ASCII characters from within a format line with the "as" format 
command. For example, "as27:asl8" will activate proportional 
spacing on the 825 printer. Use "as27:as69" for emphasized mode 
on the MX-80. 

Formatting Text 

Since you are typing in the raw text, with no margins or line 
breaks, how does the computer print a nice formatted page? The 
computer assumes a left margin of 5, a right margin of 75, single 
spacing, a page length of 66, and 50 lines to be printed per page. 
You can change these default values with a format line. 

A format line is like an embedded command line. The line 
starts with a format character to prevent the line from being 
printed out. To get the format character, press <CTRL-F>. You 
should get a right-pointed wedge. Then type in your commands. 
All commands are two lowercase letters, usually followed by a 
number. You can put multiple commands on the same line if you 
separate them with colons. For example, the following line: 

tlMi8:rn78:sp2+ 

will set the left margin to ten, the right margin to 70, and line 
spacing to two. Here is an explanation of each formatting 
command. Also see Table 2 for quick reference. 
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Note that n represents a number, with no space between the 
command and the number. No real error-checking is performed on the 
number. 

asn Sends byte n to printer. 

cm: Comment line. You can type one screen line of 

comments. They will not be printed to the printer. They 

are just for your convenience. 
can Centering. If n = 1, then centering will be on, and all 

following lines will be centered until reset by cnO. If 

n = 0, then centering is turned off. 
fp Forced paging. Normally the printer will page, or go on 

to the next page, when the number of lines printed 

equals your lines per page (lp), which defaults to 50. 

Forced paging pages to the next page, regardless. 
lmrc n = left margin, which should be less than the right 

margin. 
Inn Prints n blank lines. 

lpn Sets lines per page to n — n should be less than the page 

length, to allow some blank space at the bottom of each 

page. 
nf : filename Will chain to next specified file, permitting a docu- 
ment to be split up into many parts. The nf insures that 

they will all print as one big file. The formatting 

commands carry over to each file. 
pin Sets the page length, which is almost always (and 

defaults to) 66. 
rmn n = right margin, which should be less than the 

maximum width and greater than the left margin, 
spn n = 1, single spacing; n = 2, double spacing; n = 3, triple 

spacing; etc. 

Start the Presses 

To print your document, press <CTRL-P>. You should see: 
PRINT: tC/F) 

To start printing, just press <RETURN>. The printer head 
should be positioned at about the start of the page. The C/F indi- 
cates any selected option. C stands for Continuous Print. You 
would use this option with pinfeed or roll paper. It will automati- 
cally page to the start of each sheet. If you do not select contin- 
uous print, the computer will beep at the end of each page and 
pause. You should put in another sheet of paper and press 
<RETURN> to continue printing. 
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Note that pressing a key any other time during printing will 
abort the printout. The F option stands for Fast Printout. It will 
blank the screen during the printing, increasing printing speed 
better than 30 percent. Some people, however, find a blank screen 
disconcerting. To select one of the options, press either C or E The 
appropriate letter will light up and flash. To reset the option 
(cancel it), press the key again. Press < RETURN> when you are 
ready to print the text. 

Customizing Scriptor 

The program is fairly well-structured, with separate sections 
for all functions. The control keys are executed via a branching 
IF/THEN "bucket brigade." Just patch in your own command 
where desired. Some functions you may want to add are block 
transfer (performs both block insert and block delete), Search and 
Replace, Insert from Disk, and simple data merge. Machine 
language programmers may want to try their hand at speeding 
up certain aspects of the program, such as Insert Line, Delete 
Line, and even Print Text. 

Here are some other useful subroutines. GOSUB 540 returns 
the number of lines the user has typed (not necessarily the 
maximum number of lines) in EOT GOSUB 600 clears the top line 
of the screen and positions the cursor at the first character, ready 
for a message. GOSUB 460 performs error-checking and adjust- 
ments on the X-Y position of the cursor. GOSUB 2650 returns an 
adjusted (uppercase if AL = 1, no cursor controls, etc.) character in 
A. GOSUB 2730 is a pseudo-INPUT routine that returns IN$. Vari- 
able MX controls the maximum number of characters. 

TRAP 2170 will vector errors to an I/O Error message. There 
are two reentry points for the editor proper: GOTO 650, which 
clears and "refreshes" the screen, and GOTO 680, which just 
adjusts the cursor and continues keyboard entry (faster). 

Primary variables are: CL — the pointer to the top line (from 
0-#lines) of the screen; X — the horizontal position of the cursor 
2-39; Y — the vertical position of the cursor on the screen, 1-23; 
TX$ — the string that contains all the text and is organized in 38 
character substrings, one for each line; T$ and T — "temporary 
variables"; A — usually a keystroke typed; SCR — the address of 
the screen memory origin; NL — number of defined lines; 
FRL — the starting line in text of the defined lines; RL — the 
starting line in TX$ for reserved lines (the buffer). Several 
constants are Q0, Ql, Q23 — which return 0, 1, or 23 (saves 
memory); L2 = 38; L = 40; B$ is 38 null (CHR$(0)) characters. 
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Changes for the 800XL and 1200X 

Scriptor as originally printed would not run on an XL model. 
The modifications for the 1200XL are contained in Program 3 
and for the 800XL in Program 4. Simply substitute and/or add 
the lines to the main' listing, Program 1. 

There is another problem which might result from running 
Scriptor on an XL. Scriptor, as mentioned before, deletes part 
of itself. The deletion of lines will sometimes cause Atari 
BASIC to lock up. Be sure to include line 7000, even though it 
is just a REM statement: line 7000 will help prevent the lock-up. 

If Scriptor still locks up, you will have to experiment. Try 
adding a REM statement to the end of one of the lines at the 
end of the program (6000-6060). What you are trying to do is 
change the length of the lines being deleted. 



Table 1 . Editing Commands 

Control Keys 

A Advance one screen forward 

B Back up one screen 

D Define lines 

F Print format character 

G Go to specified line 

K Clear all tab settings 

L Duplicate defined lines 

P Print document 

Q Quit program 

SHIFT-INSERT 
SHIFT-DELETE 



CTRL-INSERT 
CTRL-DELETE 
CLEAR 



CAPS/LOWR 

ESC 

Cursor keys 

[OPTION] 

[SELECT] 

[START] 

[CTRL-,] 

[CTRL-.] 



Insert a line 

Delete a line 

Insert a space 

Delete a character 

Erase: 

A = All R = Remainder 

D = Defined lines 

Upper-or lowercase 

Mini-DOS 

Moves cursor with two-way scrolling 

Nondestructive carriage return 

Save or Recall text 

"Home" cursor 

Underlining on 

Underlining off 

Print special character 
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Table 2. Formatting Commands 

Command 
as« 

cm:xxxx 
cnn 

fp 

Imn 

Inn 

lp« 

nt:file 

pin 

rmn 

sp« 



Description 

Send ASCII character n to printer 


Default 


Comment line 




Centering: 1 = on, = off 
Forced Paging 
Set left margin to n 
Do n linefeeds 


OOff 

5 


Set lines per page to n 
Link to Next File 


50 


Page length 

Set right margin to n 

Set line spacing 


66 

75 

1 (single) 



Program 1. Scriptor 



100 


1 10 


455 


460 


470 


480 


490 


500 


510 


520 


530 


540 


550 


560 


570 


580 


590 


600 


610 


61 1 


612 


613 



SCRIPTOR WORD PR0CE550 



620 

630 
640 
650 



REM 

GOTO 5000 

RUN "D: SCRIPTOR" 

PF=Q0: IF X<2 THEN X=39:Y=Y-Q1 

IF X>39 THEN X=2:Y=Y+Q1 

IF Y<Q1 THEN Y=Q 1 : CL=CL-Q 1 : PF=Q 1 

IF Y>Q23 THEN Y=Q23 : CL=CL+0 1 : PF=Q 1 

IF CL<Q0 THEN CL=Q0 

IF CLXMXL-Q23) THEN CL=MXL-Q23 

IF PF=Q0 THEN RETURN 

L0C=CL*L2+Q1:T=USR<SCRZAP, ADR (TX* (LOO ) ) 

: RETURN 

REM *** FIND END OF TEXT 

P=ADR(TX*) : T=P+RL *L2-Q 1 

A=USR (EDCOM, T, P, 2) :A=A-P 

LC=A: EOT=INT (A/L2) 

RETURN 

REM *** F.RASE TOP LINE 

COLOR 32:PL0T Q 1 , Q0 : DR A WTO L2,Q0:PLOT Ql 

, 00: RETURN 

REM *** START OF EDITOR 

MXL=INT<FRE(O0)/40)-25:RL=MXL+l 

DIM TX$ ( (MXL+Q23) *L2) : ? CHR$(125); 

TX$ = CHR$ <O0) :TX$( (MXL + Q23) *L2) =TX$: TX$ (2 

") =TX* 

SCR=PEEK(88)+256*PEEK(89) : POKE 559,46:P0 

KE 842, 12 

X=2: Y=Q1 : CL=Q0: POKE 702, Q0 

REM *** ENTRY FOR EACH PA6E 

POKE 54286, 192 
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660 
670 
675 

680 
690 
710 
720 

740 
770 

775 
790 

8 00 
810 
820 
830 
840 
850 
860 
870 
880 
890 

9 00 
910 
920 
930 
940 
950 
960 
970 
980 

1040 
1050 

1060 
1070 
1080 

1090 
1 100 
1110 
1 120 



POSIT 
d Pro 
32, Q 
LOC = C 
IF TF 
IF FI 
Free" 
POKE 
IF Y = 
ADJOY 
A = USR 
PMB + A 
K = PEE 
T = PEE 
EN 74 
IF T = 
POKE 
IF TF 
IF A< 
A = A-3 
POKE 
LOC= ( 
TX$ (L 
X = X + Q 
BF = Q0 
IF A< 
GOSUB 
+ L2-X 
TX* (L 
IF A = 
IF A = 



ION 
c ess 

L*L2 

THE 
RST = 
; =TF 
5324 
OY T 
= OY* 
(CUR 
DJY, 
K (53 
K (76 


166 
694, 

THE 
32 
2* (A 
SCR + 
CL + Y 
OC, L 
1-BF 
: GOT 

264 
+ Q1 ) 
OC, L 
6 TH 
28 T 



Q0, Q0: ? 

or"; : CO 

+Q1 : T=U 
N TF=Q0 
Q0 THEN 
=Q1 : FIR 
8, X*4+4 
HEN 740 
4+16: AD 
SOR, PMB 
15) : OY= 
279) : IF 
4) : IF T 

THEN PO 
Q0: A=US 
N 650 
R A>122 
<96) 
X+L*Y, A 
-Ql ) *L2 
OC) = CHR 
: GOSUB 
680 

THEN 9 
0: POKE 
= B$: X=2 
OC) =CHR 
EN A=12 



"{7 SPACESiScri ptor Wor 
LOR 32:DRAWT0 L2,Q0:PLOT 

SR (SCR ZAP, ADR(TX$(LOC))) 
: GOTO 810 

POSITION 31,Q0:7 MXL;" 
ST = Q1 
4 

JY=Y*4+16 

+ADJOY, Q0) : A=USR (CURSOR, 

Y 

K<7 THEN 2570 
=255 OR T=39 OR T=154 TH 

KE 764, 255: GOTO 1570 
R (GCHAR) 

OR A=96 THEN 880 



IF 
IF 
IF 
I F 
IF 
IF 



A = 
A = 
A = 
A = 
A = 
A = 



1 : GOT 
IF A 
A = US 
, ADR 
GOTO 
IF A 
A = US 
, ADR 
GOTO 
IF A 
GOSU 
GOSU 



29 

30 

96 

31 

Q0 

126 

83 

< >25 
R (ED 

( TX* 
650 

R (ED 

(TXt 

650 

< >15 
B 59 
B 54 



+ X-01 
$ (A) 
460 

10 

SCR+X+L*Y,94:TX*(L0C,L0C 

: Y=Y+1 

$<94):G0SUB 460:GOTO 650 

7: GOTO 330 
HEN Y=Y-Q1: GOSUB 460: GOTO 680 
HEN Y=Y+Q1: GOSUB 460: GOTO 680 
HEN X=X-Ql:GOSUB 460: SOTO 680 
HEN A=74:G0T0 830 

HEN X=X+Ql:GOSUB 460:GOTO 680 
HEN A=72:G0T0 830 

THEN X=X-Q1:G0SUB 460 : A=D0 : BF=Q 


5 THEN 1070 

COM,ADR(TX*( (CL+Y-Q1)*L2+X-Q1) ) 
(MXL*L2+37) ),Q0) 

4 THEN 1100 

COM,ADR(TX$( (CL+Y-Q1)*L2+X-Q1) ) 

(MXL*L2+37) ) , Ql ) 

7 THEN 1160 

0:? "Insert Line"; 

0:POKE 559, Q0 



113 




Applications and Education 



1 130 



1 140 
1 150 
1 160 

1 170 



1 180 
1 190 

1200 



-Ql 



12 10 


1220 


1230 


1240 


1250 


1260 


1270 


1230 


1290 


1320 


1330 


1340 


1350 


1355 


1360 


1365 


1370 


1372 


1375 


1380 


1400 


1410 


1420 



1430 

1440 
1450 



'No tabs set 



I ) = CHR* (Q0) 
GOSUB 460: 



T 
GO 



FOR I=EOT+ (EOT<MXL) TO CL+Y STEP 
=TX*( (I-Q1)*L2+Q1, I*L2) :TX$( I*L2+Q1 , 
2+L2) =T*: NEXT I 

T=(CL+Y-Q1)*L2:TX*<T+Q1,T+L2)=B$ 
X=2:POKE 559,46:G0T0 650 

IF A=159 THEN GOSUB 590:7 "Tab set a 
;X-Q1:TF=Q1:TB*(X-Q1,X-Q1)=" *" :GOTO 
IF A=158 THEN GOSUB 590:? "Tab clear 
at "; X-Q1:TF=Q1:TB$(X-Q1, X-Q1>=CHR$( 
:GOTO 740 

IF A<>127 THEN 1230 
IF TB$=Bt THEN GOSUB 590 
":TF=Q1:G0T0 740 
FOR I=X TO L2:IF TB$ ( I 
NEXT I : T=L2: X=2: Y=Y+Q1 

I 200 

T=I : I=L2: NEXT I 
X=T+B1:G0T0 680 
IF A<>156 THEN 1290 
GOSUB 590:? "Delete Line' 
GOSUB 540: POKE 559,00 
FOR I=CL+Y-Q1 TO EOT:T$ 
1, (I+2)*L2):TX$(I*L2+Q1 
T I 

T=E0T*L2:TX$(T+Q1,T+L 
X=2:P0KE 559,46:G0Ta 
IF A=ll THEN GOSUB 

II tabs" : TB$ = B$: GOTO 740 
IF A0 125 THEN 1450 
GOSUB 590:? "Erase: "; 
GOSUB 2650 
IF A=155 THEN 650 
IF A<>65 THEN 1370 

- " : : GOSUB 2540 



:T* 
I*L 



t " 
740 
ed 
00) 



HEN 
TO 



TX$i ( I+Ql ) *L 
I*L2+L2) =T*: 



2 + Q 
NEX 



!) =B* 

6 50 
)90: TF=Q1 



C I ear a 



GOTO 613 

IF A<>82 THEN 1380 

? "Remainder - ";: GOSUB 2540: GOSUB 2640 

TX$(LOC)=CHR*<Q0> :TX*( (MXL+Q23) *L2) =CHR 

t(D0) :TX*(LQC+B1)=TX$(L0C) :GOTO 650 

IF A<>68 OR NL=-Q1 THEN 650 

? "Defined Lines - "; 

GOSUB 2540: POKE 559,00: GOSUB 540 

FOR I=FRL-01 TO EOT : T$=TX$ ( ( I +NL+D 1 ) *L2 

+ Q1, (I+NL + 2)*L2) :TX$(I*L2 + Q1, I*L2 + L2)=T 

$:NEXT I 

FOR I=EOT-NL TO EOT : T X * ( I * L2 + Q 1 , I * L2 + L2 

)=B$:NEXT I:NL=-Q1 

POKE 559, 46: GOTO 650 

IF A<>4 THEN 18 10 
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1460 


GOSUB 590:7 "Define Lines"; 


1470 


FL=CL:FR=Y:FRL=FL+FR:NL=Q0 


1480 


POKE SCR+l+L* (FR + NL) , 223 


1490 


L0C=CL*L2+(FR+NL-Q1)*L2:T=RL*L2+NL*L2:T 




$=TX$(LOC+Ql,LQC+L2) : TX$ iT+Dl , T+L2) =T$ 


1500 


GOSUB 2650 


1510 


IF A=29 AND FR+NL<22 THEN NL=NL+D 1 : GOTO 




1480 


1520 


IF A=28 AND FR+NL>FR THEN POKE SCR+l+L* 




(FR+NL) , 00: NL=NL-Q1 


1530 


IF A=155 THEN 1550 


1540 


GOTO 1500 


1550 


FOR I=Q0 TO NL:POKE SCR+ 1 +L * ( FR+ I ) , D0 : N 




EXT I : GOTO 650 


1570 


POKE 53248, 00: PRINT CHR$(125) :POSITION 




IXjOas 1 ? "■IldlJkfJJJJ.B" 


1580 


? " {DOWN} {TAB3 < 3 SPACES > Con tr o 1 Keys:" 


1590 


? "E= Advance Page E= Page Back" 


1595 


? "E=De-fine Lines [a= Print Format char. 


1610 


? " Cf=Kill all tabs [I=Line Duplicate" 


1620 


? "G=Print te>:t(4 SP ACES} E=Qu i t " 


1630 


? "Atari Key=Cancel Command":? 


1635 


? " A x Print special character" 


1640 


? "{D0UN>l<i4V^:l:»l Erase:fTll rTfefined Lin 




es":POKE 85,16:? "Eemainder" 


1650 


? " l*i]i#<ii:iil Non-destructive CR" 


1660 


? " 4.DUWN.; l**=*B=f»4*l Fi ler: riecal 1 or Have" 


1670 


? " CDOWN}l<--*f:l:l*l 'Home' cursor. Press 




twice to go to start of text." 


1680 


? " CDOWN"HatI»*l Mini DOS" 


1700 


? "{DOWN}Press 1:1 *iU:J: . " : A = USR ( GCHAR ) : GO 




TO 650 


1810 


IF A<>12 THEN 19 10 


1820 


GOSUB 590:? "Duplicate defined lines"; 


18 30 


IF NL<Q0 THEN 650 


1840 


FOR I=Q0 TO NL 


1850 


IF CL+Y+I-Q1 >MXL THEN I=NL:G0T0 1900 


I860 


T=RL*L2+I *L2 


1870 


T2=CL*L2+(Y+I-01) *L2 


1880 


T*=TX*(T+Q1,T+L2> 


1890 


TX$(T2+Q1,T2+L2)=T$ 


1900 


NEXT I : Y=Y+NL+Q1 : GOSUB 460:GOTO 650 


19 10 


IF A<>27 THEN 2400 


1920 


POSITION 2,00:? " Ei r ec t or y , [Joe k , En 1 oc k , 




Ee name, 3c r a t c h ? " 


1930 


GOSUB 2650: J=A 


1940 


IF J < > 7 6 AND J i. > 85 AND J < > S 3 AND J < > 6 8 




AND J<>82 THEN 1930 
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1950 
1960 
1970 
1980s 

1990 
2 00 



2 010 

2020 
2030 
2 04 
2050 
2060 
2070 
2080 
2 09 

2 100 



2 110 
2 120 

2130 

2 140 



2 150 
2 160 
2 170 



2 180 
2190 

2200 
22 10 
2220 



THEN 



!00 



"Press 
27 THEN 



»eh:m : 


; :J=35 


■»JIIKiMS> ' 


; : J=33 
; : J = 3 6 



"~y T> T T 

2238 
2240 



IF J<>ASC("D"> THEN 2020 
? CHR* ( 125) : POKE 53248,(30 

TRAP 2170:QPEN # 2 , 6 , D0 , " D : * . * " 

INPUT #2,T*:? T$:IF LENCT*)<17 



GOTO 1980 

CLOSE #2: TRAP 40000: BOSUB 590: 

a key . . H" ; : OK= 1 : BOSUB 2650: IF 

1920 
GOTO 650 
GOSUB 590: J=A 
IF J=76 THEN 1 
IF J = 83 THEN 7 
IF J=85 THEN 1 
IF u=ASC("R") THEN 2130 
? "Enter Filename:"; 
MX=12: AL=Q1 : GOSUB 2720 
T$(3)=IN*:T$!1,2) = "D: " : POS I T I ON 1 , (2 : ? 

DEL* (1,15); 
TRAP 2170: IF J =33 THEN POSITION 24,Q0:G 
OSUB 2540: COLOR 32: PLOT 24,Q0:DRAWTO 38 
, G 

TRAP 2170: XIO J , *2, D0, Q0, T$: TRAP 40000 
TRAP 40000: GOTO 650 

GOSUB 590:? "l:1=ai:f:1Sla>Currerit name? ";:MX 
= 12:G0SUB 2720! T* < 3) = IN* I T* ( 1 , 2 ) = *' D : " 
GOSUB 590:? " !:!=<: r:1Sla >New name? ";:MX=12: 
GOSUB 2720:T*<LEN(T*)+Q1>=", " : T* (LEN <T* 
)+Ql)=IN$ 

TRAP 2170: XIO 32, #2, Q0, Q0, T$: TRAP 40000 
GOTO 650 

TRAP 2 170: POKE 559, 46: CLOSE #2: CLOSE #3 
: GOSUB 590:? CHR* ( 253 ) ; " I / O Error tt";PE 
EK ( 195) ;: TF=Q1 : GOTO 740 
GOSUB 590:? "gave or Eecall"; 
ICC0M=834+48: I CB AL= I CCOM+2 : ICBLL=ICBAL+ 
4: ICSTAT = 835 + 48: REM I0CBW3 
GOSUB 2650: IF A=155 THEN 1380 
IF flOASCC'S") THEN 2290 

GOSUB 600:? "SAVE: €3 SPACES3File name? 
";:MX=12:G0SUB 2720: T$ (3) =IN$: T$ ( 1 , 2) =" 
D: " : GOSUB 550 

POSITION 5,0:? DEL* < 1 , 1 2 ) ; " I NG " ; 
TRAP 2238: OPEN #3 , 4 , Q0 , T* : CLOSE »3:GDSU 
B 600:? " EDEHGIHl i ";IN*;" - ";: GOSUB 2 
540 

GOSUB 600:? "REPLACING "; IN*: GOTO 2240 
CLOSE #3: IF PEEK ( 1 95 ) <> 1 70 THEN 2 170 
TRAP 2170: OPEN #3,8,Q0,T* 
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2250 

2260 

2 2 7 

2280 

2290 
2300 
2310 

2315 

2320 
2330 
2340 

2350 

2 360 

2370 



^~ 


380 


n 

*- 


390 




400 


^ 


403 


'-y 


40 5 


2 


4 10 


2 


42 



2430 



*-> 


5 00 


2 


540 


2 


550 


•n 


570 


n 


580 



POKE ICCOM, 1 1 : P = ADR (TU) : POKE ICBAL+01, 
INT(P/25 6) :POKE ICBAL, P- ( INT (P/256) *256 
) 

LN=(CL+E0T+G1)*L2:P0KE ICBLL+Q1, INT(LN/ 
256) :POKE ICBLL, LN- ( INT (LN/ 256) *256) 
A=USR(flDR(CIO$) ,48) : ERR=PEEK ( I CST AT ) :P0 
KE 195, ERR: IF ERR>1 THEN 2170 
CLOSE #3: TRAP 40000: POKE 53279 , 00 : SOTO 
650 

IF AOftSCC'R") THEN 650 
LK = Q0 

SOSUB 590:? "RECALL: Filename? ";:MX=12 
:SOSUB 2720:T$(3)=IN$:T$(1,2)="D: " 
LOC=(CL+Y-O1)*L2+Q1:TX*(LOC)=CHR$(O0):T 
X$ ( (MXL+Q23)*L2)=CHR*(O0) : TX$ (LOC + Q1 )=T 
X* (LOO 

TRAP 2170: POSITION 8,0:? DEL* ( 1 , 8 ) ; " I NG 
" ; : OPEN #3, 4, Q0, T* 

ICCOM=834+48: I CBAL= I CCOM+2 : ICBLL=ICBAL+ 
4 

POKE ICCOM, 5:P=ADR(TX*( (CL+Y-Q1 ) *L2+G1 ) 
):POKE ICBAL+Q1 , INT (P/256) : PDKE ICBAL, P 
- ( INT (P/256) *256) 

LN=(MXL-(CL+Y-Q1) ) *L2:P0KE ICBLL+Q1, INT 
(LN/256) : POKE ICBLL, LN-( INT (LN/256)*256 
) 

A=USR(ADR(CIO*) ,48) :ERR=PEEK(ICSTAT) :PO 
KE 195, ERR: IF ERR>1 AND ERR0136 THEN 2 
170 

CLOSE #3: POKE 53279, 00: TRAP 40000: IF LK 
=00 THEN 650 

CL=Q0:Y=Q1: X=2:T=USR(SCRZAP,ADR(TX*) ) 
SOTO 2950 

IF A<>17 THEN 24 10 

SOSUB 600:? " EBDQ i ";:GOSUB 2540 
POKE 53277, 00: POKE 53248 , Q0 : POKE 53774, 
192: POKE 1 6 , 1 92 : SR APH I CS 00s POKE 702,64 
: END 

IF A=16 THEN 2840 

IF A = Q1 THEN CL = CL + 023 : Y = Q 1 : G OSUB 460:G 
O T O 6 5 

IF A=2 THEN CL=CL-023 : Y=0 1 : SOSUB 460:80 
TO 650 
SOTO 640 

? "Are you sur e? ";: SOSUB 2650: IF 1-(A=1 
21 OR A=89) THEN POP :SOTO 650 
RETURN 

REM *** Handle console keys 
POKE 764, 130: A=USR (BCHAR) : POKE 77,00 
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2590 


IF K = 


2600 


IF K= 




80 


26 10 


IF K = 




GOTO 


2 620 


IF K = 


2630 


SOTO 


2640 


LOC= < 


2650 


T = Q0: 


2660 


IF PE 




OKE 7 


2665 


IF OK 




= ^ *~> ■ 




R (GCH 


2670 


IF PE 


2680 


IF PE 


2690 


IF PE 




00, 5 




ND 00 


2700 


TRAP 




96 AN 


27 10 


POKE 


2720 


REM * 


2730 


IN$=" 


2740 


? CHR 




3 2) ; C 


2750 


IF A = 


2760 


IF A = 




LEN ( I 


2 770 


IF A = 




; : GOT 


2780 


IF LE 


2790 


IF < A 




N 274 


2800 


? CHR 


2810 


GOTO 


2820 


AL = Q1 


2830 


RETUR 


2840 


REM * 


2850 


GOSUB 


2860 


CON = Q 




XT I 


2870 


GOSUB 


2880 


IF A = 




CHR* 


2890 


IF A = 




* (70 + 


2900 


GOTO 


29 10 


TRAP 



5 THEN 2 180 
3 THEN X=2: Y=Y+Q1 : GOSUB 460: GOTO 6 

6 AND Y=Q1 AND X=2 THEN CL=Q0:X=2: 
650 

6 THEN Y=Q1 : X=2: GOTO 650 
740 

CL+Y-Q1 ) *L2+X-G1: RETURN 
REM GET A KEY 

EK(20)>20 THEN T=Q1-T:P0KE 20,Q0:P 
55, T Jfc 2 

THEN IF PEEK (53279) =5 THEN POKE 7 
POKE 559, 46: POP : POKE 764,130:A=U3 
AR) : OK=0: SOTO 2 180 
EK (764) =255 THEN 2660 
EK (764) =154 THEN 2660 

EK(764)=39 THEN POKE 764 , 255 : SOUND 
,12,4:P0P :FOR T=l TO 5:NEXT T:SOU 
, 00, 00, 00: GOSUB 2710:BOTO 650 
2700: A=USR (SCHAR) : TRAP 40000: IF A> 
D A<123 THEN A=A-32*AL 
755, 2: POKE 559 , 46 : RETURN 
** PSEUDO-INPUT 

■ I 

* (21 > ; CHR* (30) ; : SOSUB 2650:? CHR* ( 

HR* (30) ; 

155 THEN 2820 

126 AND LEN(IN*>>1 THEN IN*=IN*(1, 

N*)-Ql)s? CHR* (A) ;: SOTO 2740 

126 AND LEN(IN*)=Q1 THEN ? CHR*(A) 

O 2 7 3 

N(IN*)=MX THEN 2740 

<32 OR A; 90) AND A<96 OR A>122 THE 



*(A) ; : IN*(LEN(IN*)+Q1)=CHR*(A) 

2740 

:IF IN*="" THEN POP : SOTO 650 

N 

* * Printer Output 

590: ? "PRINT: (C/F) " 
0:F=Q0:FOR 1=00 TO 9 : PC ( I ) =48+ I : NE 

2650: IF A=155 THEN 2910 
67 THEN C0N=1-C0N: POSITION 10,00:? 
(67+128*C0N) ; : GOTO 2870 

70 THEN F=l -F: POSITION 12, Q0:? CHR 
128*F) : GOTO 2870 
2870 
2170: OPEN #2,8.00. "Ps" 
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2920 


2930 


2940 


2950 


2960 


2970 


2980 


299 


3 


3 1 


3020 


3030 


304 


3060 


3070 


303 


309 


3100 


3 105 



107 



1 10 

120 
130 
140 

150 
160 

170 
180 



:i90 

;200 
;2i0 

5220 



GOSUB 590:? "Printing..." 

LM=5:RM=75:CN=Q0:NL=Q0 

SP=1:PL=66:LP=50:C=LM 

GOSUB 540: IF F=l THEN POKE 559, Q0 

FOR P=G1 TO LC 

IF PEEK (764) <255 THEN GOSUB 2650: POP :G 

OTO 3140 

Z=ASC (TX$(P) ) 

IF CN=D1 AND Z<>127 THEN 3460 

IF Z<62 OR <Z>96 AND Z<123) THEN 3070 

IF Z=94 THEN GOSUB 3210:GOSUB 3150:GOTO 

3 120 
IF Z=72 THEN UL=Q1:PUT #2,27:PUT #2,52: 
GOTO 3120 

IF Z=74 THEN UL=Q0:PUT #2,27:PUT #2,53: 
GOTO 3 120 

T = ASC (TX$ <P + E!1 ) ) : IF Z = 62 AND T>15 AND T 
<26 THEN PUT #2 , PC ( T- 1 6 ) : P = P+ 1 : GOTO 312 


IF Z=127 THEN 3230 

IF C=LM THEN FOR I=Q1 TO LMsPUT #2,32:N 
EXT I 
C = C+1 

PUT #2, Z + 32* < Z<64) 
T=Q0: IF RM-C>=10 THEN 3110 

FOR 1 = 1 TO LEN(BRK$! : IF Z + 320ASC «BRK$ ( 
1,1)) THEN NEXT I: GOTO 3110 
TT = ASC (TX$ (P + Ql ) ) : IF TT=Q0 OR TT = 94 OR 
Z=Q0 OR Z=13 THEN I =LEN ( BRK$ ) : NEX T I : GO 
SUB 3 150: T=Q1 

IF T = G!1 AND ASC (TX$ (P + Ql ) ) =Q0 THEN P = F + 
Q1:IF P < L C THEN 3110 
NEXT P 
GOSUB 3 150 

PRINT #2: CLOSE #2: POKE 559, 46: TRAP 4000 
0:GOTO 65 

FOR I =0 1 TO SP: PRINT #2: NEXT I 
C=LM: NL=NL+SP: IF CN<Q0 THEN CN=Q1 
IF NL<LP THEN RETURN 

IF CON=Q0 THEN FOR I=Q0 TO 255 STEP 17: 
SOUND Q0, 255- I , 1 , 15- I NT ( I / 17 ) : NEXT I:T 
=U3R ( GCHAR) : GOTO 3200 

FOR 1=01 TO PL-LP: PRINT #2: NEXT I 
NL=Q0: RETURN 

REM *** SKIP TRAILING BLANKS 
T=INT(P/L2) : P= ( T + Ql - (P/L2 = T) ) *L2: RETURN 



.230 

;240 



REM Hand: 
P=P+Q 1 



, p e c i a 1 -formatting 
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3250 
3260 
3270 



3280 
3290 
3300 

3310 
3320 
3330 
3340 
3350 
3360 

3370 
33B0 

3390 
3400 
3410 



3415 

3420 

3430 

3440 
3 45 
3460 
3470 

3430 

3490 

3500 
5 000 
5010 
5020 

5030 

5040 



CM$=TX$(P,P+Q1) : T*=" " 

FOR I=P+2 TO LC 

IF TX$(I,I)> = CHR$U6) AND TX$(I, IXCHR$ 

(26) THEN T* (LEN (T$) +Q1 > =CHR* < ASC (TX$ < I 

, I ) ) +32) : NEXT I 

V = Q0: P=I : TRAP 3290 : V= VAL ( T* ) 

TRAP 2170: IF CM*="cn" THEN CN = V 



IF 

50: 

IF 

IF 

IF 

IF 

IF 

IF 



CM* = 

NEXT 

CM* = 

CM$ = 

CM$ = 

CM* = 

CM* = 

CM* = 
-46*F 
IF CM$= 

CM$ = 

I ) <> " ' " 

CM$="cm 

CM* 

"D: 



"In 1 

J 
"sp 1 

"pi 1 

"Ip 1 

" lm' 
" r m ' 

"fP 



THEN FOR J=Q1 TO V:GOSUB 31 

THEN SP=V 

THEN PL=V 

THEN LP=V 

AND V>0 THEN LM=V:C=V 

AND V>0 THEN RM = V 

THEN BQSUB 3 180: POKE 559,46 



IF 

< I 5 

IF 
IF 

T$ = 



as ' 
cm' 



THEN POT #2,V 

THEN FOR I=P TO P + 79: IF TX$ 
THEN NEXT I : I=I-Q1 

THEN P=I+Q1:B0T0 3450 
"n-f" THEN 3430 

FOR I=Q0 TO 1 1 : Z = ASC (TX$ (P+I , P + 
I)):IF Z<>94 AND P+K=LC THEN T*(3+I)=C 
HR$ (Z+32* ( Z<63) ) : NEXT I 

TX*(Q1)=CHR*(Q0):TX*((MXL+Q23)*L2)=CHR* 
(00) : TX$ (2) =TX$ 

POKE 559,46:G0SUB 590:7 "Printing 
LK=Q1 : CL=Q0: Y=Q1 : GOTO 2320 
IF ASC(CM*)>15 AND ASC(CM*)<26 
ASC (CM*) -16) =V 

IF TX* (P, P) < >" " AND P<LC THEN 
GOSUB 3220: P=P+Q1 : GOTO 2970 
REM *** CENTER STRING 
LN=Q0:FOR I=P TO P+79: IF TX*(I. 
THEN LN=LN+Q1 : NEXT I 

WIDTH=RM-LM:UL=Q0: IF TX$ (P, P) =CHR$ (72) 
THEN 0L=Q1 

FOR I=Q1 TO ( WIDTH-LN) /2 + LM: PUT #2,32:N 
EXT I 
C=C+I : CN=-Q1 : GOTO 2990 

rem ESBEHmBaHnai 

GRAPHICS 17:SETC0L0R 4,1,10 
DL=PEEK (560) +256* PEEK (56 1 ) +4; 
7: POKE DL+10, 7: POKE DL+ 1 4 , 7 



T*: 



THEN PC( 



!40 



I ) 



POKE DL+5, 



POSITION 6,4:7 #6; " kiirfJiiilii" : POSITION 3 
,7:7 #6: " ETiTn>M-J:TiM*Ern? " 

7 #6:7 #6;" " ; CHR$ ( 1 36 ) ; CHR$ ( 227 ) ; CHR$ ( 
137) ; " «JJJliBrGSM" ;CHR$(145) ;CHR$ (15 3) ; 
CHR$ (152) : CHR$ (147) 
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5 04 5 

5050 
5070 

5080 
5090 
5 100 



51 10 

5 120 
5 130 

5 14 
5 1 50 
5 160 

5 180 
5250 



5290 

5300 
53 10 



5330 

5340 
5350 
5360 
5370 
5380 
5390 
5400 
54 10 
54 2 
54 3 
54 4 



? #6 
HR$ ( 
? #6 
Q0 = 
CURS 
= 130 
DIM 
) , BR 
B* = C 
* (25 
TB$ = 
4) = C 
228) 
OPEN 
T = Q0 
PMB = 
D0 

POKE 
PMB = 
FOR 
3*RN 
SETC 
FOR 
KSUM 
(537 
FOR 
CKSU 
K ( 5 3 
IF C 
; "Er 
DATA 
141 , 

, 10 

DATA 
124, 
6,13 
DATA 
60, 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



14 

: Q 

OR 

T* 
K* 
HR 
4) 

B* 
HR 



# 

) ; 
# 
1 = 
= 1 
3N 
(7 
(8 

* ( 
: D 
: B 

* ( 



•C4 SPACE! 



: o m p ut e € A3 p ub 1 " ; C 



6; " 
1 : Q 

739 
D=l 
9) , 

> < P 
Q0) 
EL* 
RK$ 
170 



<3 SPACES; CHARLES BRANNON" 
23=23: RL=MXL+Oi:SCRZAP= 1680: 
: EDC0M=1536: AL=1 : L2=38: GCHAR 
33 1 

IN* (20) , B* (L2) ,TB*(L2) , CM* (2 
C (9) , DEL* (20) , CIO* (7) 
:B*(L2)=B*:B*(2)=B*:DEL*=CHR 
(20)=DEL*:DEL*(2)=DEL* 
=" ,.!?;:-": CIO*="hhh ": CIO* ( 
) : C I O* ( 5 ) = '■ LV " : C I O* ( 7 ) =CHR* ( 



#1,4,Q0, "K: " 
:OY=Q0:CL=Q0:L=4 
PEEK ( 106 ) -3 : POKE 



: NL=-Q1 

559, 46: POKE 5: 



!43, 



542 
PMB* 
I=Q0 
D (Q0 
OLOR 

1=0 

= CHE 
70) : 
1=0 
M = CH 
770) 
HECK 
r or 

72 , 

24,2 

4, 64 

104 

162, 

3,2 1 

162 

, 234 

216 

133 

133 



2 00 
205 
206 
206 
0, 1 
136 



79, P 
256 + 

TO 
) , PE 

4, 3 
TO 7 
CKSU 
NEXT 
TO 2 
ECKS 
: NEX 
SUM< 
in D 
133, 
08, 1 

, 173, 

255, 1 

2, 169 

0,14 

200, 

104, 

212, 

203, 

109, 6 

6 , 16 

, 145, 

, 20 1 , 

, 197, 

, 197, 

77, 20 

, 152, 



MB: POKE 
512: POKE 
255: POKE 
EK (53770 

0:READ A 
M+A: POKE 

I 
47 : READ 
UM+A: POK 
T I 

> 4 7 7 6 5 T 
ATA stat 
72, 169, 1 
41 , 26, 20 



5327 7, 3 

7 4, 56 

FMB+I , 00: POKE 708+ 
) : NEXT I 

:POKE 1280+1 , A: CHEC 
703+3 * RND (Q0) , PEEK 

A: POKE 1536+1, A: CHE 
E 708 + 3 * RND (Q0) , PEE 

HEN PRINT CHR*(253) 

ements. . . " : END 

0, 162, 2, 141 , 10,212, 



252 
42, 

, 0, 

2, 
208 
104 
104 
104 
, 16 

.. 0- 
205 
255 
212 
213 

c- ' 

J , - 

14: 



8, 142, 23, 208, 104, 17 
101 , 255, 240, 249, 133, 



133,: 

,210. 

'—> cr ^i 
, iJi . 

, 133. 
, 133. 
, 104. 
5 , 20: 
177, 

1 98 
208 
208 

2 08 
00, 1 
, 205 



13,96 

16 2, 15, 142, 1 , : 

202, 16, 244, 96 

2 13, 104 

204, 104 

208, 47 

, 76 

5, 165 
198 
5, 165 
9, 160 
205 
201 



10,1 



20: 



45: 

, 96 
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5450 
5460 
5470 
54S0 
5490 
5500 
5510 
5520 
5530 
5540 

5560 
5570 
5580 
5590 
5 600 
5 6 1 
5 6 2 
5630 
564 
5650 
5660 
5670 
5680 
5690 
5700 
5 7 10 
572 
5730 
5740 
57 50 

60 

6010 



6 Z 

6 3 
6 4 

6 5 

6 6 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
GRAP 
53 77 
FOR 
: PDS 
? J : 
POKE 
N 
POKE 
SETC 
OR Q 
P K E 
512 
? CH 
EP 1 
, : F 



1 , 240, 3, 76, 221 , 6 
32, 109, 6, 76, 91 , 6 
160, 1 , 177, 2 12, 136, 145 
212, 230, 212, 208, 2, 230 



213, 165, 213 
237, 165, 212 



197, 206, 208 
197, 205 , 208 
23 1 , 169, 0, 168, 145, 2 12 
96, 165, 212, 133, 205, 165 
213, 133, 206, 160, 0, 177 
205, 201 , 94, 240, 18, 230 

205, 208, 2, 230, 206, 165 

197, 204, 2 08, 238, 165 
197, 203, 203, 232 , 96 
S3 , 133, 203, 165, 89 
204, 104, 104, 133 , 206 
133, 2 5, 162, 24, 7i> 
6 , 1 60, 0, 1 77, 205 
200, 145, 203, 136 , 192 
3 8, 2 08, 245, 24, 169, 38 
10 1,2 05, 133, 2 05, 144,2 



206 
20 5 
165 
133 
104 
188 
2 



23 
203 
20 4 
104 
104 
192 



206, 24, 169, 40, 101 
1 33, 203, 144,2, 230 



202, 208, 2 13, 96, 104 
133, 204, 104, 133, 203 
16 8,104,145,203,200 
4, 208, 249, 96, 160 

0, 177, 2 12, 208, 20, 198 

2 12, 165,212,201,255,203 

2, 193,213, 197,203,208 

238, 165, 2 13, 197, 204, 203 

2 3 2, 96 
HICS 0:POKE 559,00: POKE 16, 64: POKE 
4 , 64 

1=5000 TO 5900 STEP 100:7 CHR*C125) 
ITION 2,3:F0R 3=1+90 TO I STEP -10: 
NEXT J : ? 110:? "CONT " 

712, PEEK (53770) : POKE 842, 1 3: POSITI 
, : STOP 

842, 12: NEXT I 
OLOR 2,12,Q0:SETCOLOR 4,8, 10:SETCOL 
1 , (30, 12: POKE 752, 1 

PEEK (560) +256* PEEK ( 56 1 ) +3, 194: POKE 
, : P K E 5 13,5 

R$(125):7 :? :FOR 1=6000 TO 6060 ST 
0:7 I: NEXT Is? " SO T O 6 1 " : POS I T I ON 
OKE 342, 13: STOP 
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Program 2. Scriptor Modification for 825 Printer 

Change these lines in Program 1 if you have an 825 printer. 

3020 IF Z=72 THEN UL=Q1:PUT #2, 15: GOTO 3120 

3030 IF Z = 74 THEN UL=Q0:PUT #2, 14: GOTO 3120 

3070 IF C=LM THEN PUT #2, 14:F0R I=Q1 TO LM:P 

UT #2,32:NEXT I : PUT #2,15*UL 

Program 3. Scriptor for 1200XL 

Change these lines in Program 1 if you liave an Atari 1200XL. 

750 IF PEEK<732) THEN POKE 732,0:GOTO 1570 
5300 IF CHECKSUM< >47596 THEN PRINT CHR$(253) 

; "Error in DATA statements...": END 
5320 DATA 104,173,252,2,201,255,240,249,133, 

124, 162, 255, 142, 252, 2 , 32 , 5 1 , 5 , 32 , 89 , 242 

i i. ■_■■_• -, .£_ 1 jL. ■ 107) Br j i, -J-J I Z.i,U] / Cj 

6000 GRAPHICS 0: POKE 559,00: POKE 16,64s POKE 

53774, 64s POKE 73 1,255 
7 00 REM 

Program 4. Scriptor for 800XL 

Change these lines in Program 1 if you have an Atari 800XL. 

5300 IF CHECKSUM047543 THEN PRINT CHR*<253) 
5 "Error in DATA statements. .. ":END 

5320 DATA 104,173,252,2,201,255,240,249,133, 
124, 162,255, 142,252,2,32,51 ,5,32, 35,243 
, 133, 212, 169, 0, 133, 213, 96 
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r SuperFont Plus 



John Slaby and Charles Brannon 



You can generate excellent game graphics by using ANTIC modes 4 and 
5. This program provides an ANTIC version of SuperFont. Requires 16K 
RAM. 

After typing in "SuperFont" (COMPUTEI's First Book of Atari 
Graphics), I was very pleased. I couldn't imagine needing any 
additional functions or purchasing any font editor that could 
possibly improve upon it. Then I bought De Re Atari, and every- 
thing I had read previously in the Hardware Manual on ANTIC 
modes 4 and 5 fell into place. At the same time I realized that it 
was ANTIC mode 4 that allowed the great graphics in Caverns of 
Mars. I realized I could make some useful additions to the original 
program. Therefore, I offer SuperFont Plus. 

Charles Brannon stated in his article on SuperFont that it 
would be easy to expand the program, so I did. The additional 
commands are the ANTIC, PRINT, DATA, and Color Change. Of 
these, only the DATA and PRINT commands can be used along 
with the original version of Graphics modes 0, 1, and 2. This 
expanded version is about 65 percent longer and, if you have only 
16K RAM, some manipulation will be required; but you can have 
an ANTIC version of SuperFont. For those of you that already 
have SuperFont, just add lines 10, 20, 105, 106, 115, 375, 475, 477, 
1415, and 1601 through 1605. Also note the changes in lines 100, 
120, 190, 270, 320, 340, 380, 470, 480, 590, 650, 1300, 1320, 1360, 
1370, 1400, 1410, and 1420. If you obtained your SuperFont from 
COMPUTEI's First Book of Atari Graphics, you will also have to 
delete line numbers 5000 on up, as there is no room in the menu 
for the printer command. Once you do this, you will have the 
capability of designing your own ANTIC 4/5 character set. 

For those of you with only 16K, there is a way out. You will 
have to end up with two fonts: one font, the original, for the 
BASIC-supported graphics modes, and one for the ANTIC 4/5 
graphics modes. If you delete the following commands and 
change lines 250 and 300 to say RAM-4 instead of RAM-8, you 
will have a functional font. The deleted commands which have 
limited use for ANTIC 4/5 are: RESTORE (920-930), OVERLAY 
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(870-910), GRAPHICS (1370-1390), WRITE DATA (1290-1360), and 
QUIT (1130-1140). Also, please do not add the DATA command; 
you will not have enough memory to use it. I've included a utility 
that will read the saved character set from S command and put the 
character set into DATA lines just as the full-fledged version of 
SuperFont Plus does. Be sure to change 3500 to 520 in line 3000 so 
you don't jump to the DATA command that doesn't exist. 

Original SuperFont 

Here's a quick review of the original SuperFont commands: 

EDIT: The character you select by pressing the joystick trigger is 
copied to the grid in the upper section of the screen. The cursor is 
relocated to this grid, and you can instantly modify the character 
by moving the joystick and pressing the trigger to either set or 
remove a point, as desired. 

RESTORE: This will copy the pattern from the first character set 
to the second, located in the lower half of the screen. 

COPY FROM: Selects a character which will be copied to the 
current one you are working on. 

COPY TO: The current character will be copied to the selected 
place. 

SWITCH: Exchanges the current character for the one selected. 

OVERLAY: Adds the selected character's pattern to the current 
one. 

CLEAR: Clears the pattern of the current character. A must for 

ANTIC 4/5. 

INVERT: Turns current character upside down. 

SAVE FONT: Saves character set to disk or tape. Answer 
"Filename" with either C: or D:filespec. If you see an error 
message, press any key to return to the menu. 

LOAD FONT: Retrieves a character set that you saved. Answer 
"Filename" here the same way as in SAVE FONT. 

CURSOR-UP or SHIFT DELETE: The line of points the cursor is 
on is deleted, and the following lines are pulled up to fill the gap. 

CURSOR-DOWN or SHIFT INSERT: A blank line is inserted on 
the line the cursor is in, and all lines below it move down one. The 
bottom line is lost. 

SCROLL LEFT: The bit pattern of the character is shifted left. 
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SCROLL RIGHT: The bit pattern of the character is shifted right. 

WRITE DATA: The internal code (0-127) of the character and the 
eight bytes that make it up are displayed in the menu area. Press 
any key to return to menu. 

GRAPHICS: This toggles the TEXT/GRAPHICS option of 
graphics modes 1 and 2 to let you see each half of the character set. 

REVERSE: All blanks become points, and vice versa. Works the 
same as pressing the Atari logo key and then typing. 

QUIT: Exit program. 

SuperFont Plus: Three New Commands 

The ANTIC(A) command mode modifies the display list so that 
the lower section of the screen now becomes ANTIC mode 4 
except for the last line, which is ANTIC 5. Press A again to return 
to the original GRAPHICS 0, 1, and 2. Once you activate this 
command, the character set will become mostly unrecognizable. 
This is because the characters are now four pixels wide instead of 
eight, but the overall displayed width remains the same. This loss 
of resolution is the price you have to pay for the multicolor ability 
of these ANTIC modes. 

Use all other commands as before; they will work. Please 
note that the grid now has double-wide pixels when compared to 
the first display. This is because that binary number you place in 
each pixel determines the color that will be displayed and you 
need two bits per color. The binary number is related to the color 
registers as follows: 00 = Background; 01 = Play field 0; 10 = Play- 
field 1; and 11 = Playfield 2. To use Playfield 3's color, you 
also use binary 11, but the internal code must be 128-255. This is 
accomplished by using reversed characters via the Atari logo key. 
There is no way to use this key in any of the original commands, 
so the PRINT command was created. 

The PRINT mode (P) allows you to print any character in the 
bottom window next to another one just as in normal typing. This 
mode allows you to see that third playfield color via the logo key. 
You can type as long as you like, but if you exceed 38 characters, 
the first one will be lost and all the others will shift left. As noted 
before, this command can be used with the original GRAPHICS 1 
and 2. 

Since the keyboard is used for typing, the START and 
SELECT buttons will, respectively, return you to the menu and 
clear the typing area. When you return to the menu, the typing 

129 




Graphics 



area isn't automatically cleared; this allows you to work on more 
than one character at a time, that is, three characters together as a 
car, etc. This mode is also useful to get a full screen effect for one 
line of modified characters. 

The next new command is the Color Change mode (K). 
When I started working with the first two new commands, it 
became obvious that the ability to change the color of the character 
I was working on would be very useful. Thus I expanded the 
Display List Interrupt to give me that ability and added a second 
interrupt for the background color change. 

When you activate this command, you will be able to change 
only the colors for the ANTIC 4/5 character set. If you want to 
change the colors for the original graphics modes, modify lines 
170 and 300 as desired. The menu area will be cleared, and you 
will be given the choice of the playfield or background color you 
want to change. If you change the background, it will affect only 
the typing window. I did this to keep the clarity of the character 
set at its best, and you will probably want to see the change for 
only one or two characters at a time. 

After your register selection, you will be asked for the color 
and luminosity value (0-14) you want. To help you, a list of colors 
will be supplied in the menu area. If you give a bad input, you will 
be asked to try again, starting with the color value. To get the 
decimal value being used by that register, press R when being 
offered the color registers and then select a register. 

Using the Character Set 

Once you have created the character set, you will need to save it to 
disk or tape. There are a number of options open to you. The first 
one was supplied in the original SuperFont, the S (SAVE) font 
option. To use this, just press S and respond to the filename 
prompt with either C: for cassette or D: filename for disk. 

There are two methods of using the character set saved with 
the S option. Program 2 (Character Set Loader) simply loads the 
set into memory and changes CHBASE(756) to point to it. 

The second method is to use Program 3 (Character Set DATA- 
maker) to create a module of lines that lets you add your character 
set to any program. After saving your character set to tape or disk, 
just RUN Program 3. It will ask you for the filename of the char- 
acter set, the starting line number of the module, and a filename 
for the module. (Just answer C: to the filename prompt for use 
with a cassette.) 
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Program 3 writes a subroutine replete with the appropriate 
PEEKs, loops, and DATA statements, to tape or disk. It optimizes 
space by writing DATA statements only for those characters you 
have changed. After it has finished, you can use the ENTER 
command to merge the statements produced with any program. 
You may need to make some minor adjustments to the DATA 
statements it produces. Also, in your main program, remember to 
use a POKE 756,CHSET/256 after every GRAPHICS statement, 
since a GRAPHICS statement resets the character pointer. 

The second method for saving your font is the D DATA STM 
command. To use this command, just press D. You will first be 
asked if you want to delete any character set line numbers. Once 
the lines have been deleted, or if you do not wish to delete lines, 
the save font prompts will begin. 

To save the font, you must supply the starting line number 
(no line number below 4000 will be accepted) and the beginning 
and ending character. Once these inputs are completed, lines will 
be added starting with whatever line number was entered, incre- 
menting by ten for each character. You can now LIST the font 
DATA to a printer, cassette, or disk. This file can now be merged 
with a program. 

The subroutine below can be used within a program to 
POKE the new character set into memory from the DATA state- 
ments. Remember to POKE 756,CHSET/256 after each 
GRAPHICS statement. 

3000 CHSET=PEEK(106>-8 
3010 CHSET=CHSET*256 
3020 FOR 1=0 TO 1023 
3030 READ A: POKE CHSET+I,A 
3040 NEXT I 
3050 RETURN 

That covers everything; now you should be able to generate some 
excellent graphics characters like those in Caverns of Mars and 
Eastern Front. 



Program 1. Superfont Plus 



10 GOTO 100 

20 POKE 82 , 14: POSITION 14,0: FOR I=ST TO ED; 

" C25 SPACES]- ": NEXT I: RETURN 
100 REM *** SUPERFONT + *** 
105 REM Character Set Editor 
140 DIM I (7) ,FN$(14),N$(10) 
150 IF PEEK ( 1 536) < >72 THEN GOSUB 1400 
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160 
170 
180 
190 

200 
210 
220 
2 30 
2 40 
250 

2 60 
270 
280 
290 

3 00 

3 10 

320 



330 

340 

350 

360 
370 

375 
380 

39 
400 
410 
420 
430 
440 
450 

460 

470 



GRAPHICS 0:POKE 752,1 

SETCOLOR 2, 7, 2: SETCOLOR 4,7,2 

DL=PEEK (560) +256* PEEK (56 1 ) +4 

SD=PEEK(88)+256*PEEK<89>+12*4 

4 

A1=163 0:FUNC=163 1:A2=1632:LOG 

RAM=PEEK < 106) -8: PHB ASE=R AM *25 

CHR0RG=57344 

POKE 559, 46: POKE 54279, RAM 

POKE 53277, 3: POKE 53256,3 

CHSET= (RAM-8) *256 



0: ASD=SD+5* 

IC=1628 
6 



DL+23, 6: POKE 
DL + 17, 1 3 : P H 
5 12,0: POKE 513., 
54236, 192 
1549, RAM-8: POKE 



1672 , RAM-S ; 



'. : T = 2 



FOKE P 

T I : RE 

249, 64: POKE 53250,6 



55-T: 

55-T 

T:NE: 



POKE DL+23, 6: POKE DL+24, 

POKE DL+17 , 130: POKE DL + 1 

POKE 

POKE 

POKE 

8, 

A=USR (1555,CH3ET) 

P0=PMBASE+5 12+20: Pl=PMBASE+64 0+2 0: 

ASE+768+2 0:P=PMBASE+89 6+2 0: T =35:30 

0:GOTO 350 

FOR 1=0 TO 7: FOR J=0 TO 

0+1 *4+J , 0: POKE P1+I*4+J,T 

POKE P2+ I *4+J , T : NEXT J : T= 

TURN 

POKE 53248, 64: POKE 5: 

4 

POKE 704,198:POKE 70! 

POKE 53256, 3: POKE 53: 

CKE 623, 1 

GOSUB 380-.SOSUB 390: GOTO 4 

POSITION 2,0:? " CQ 
3:7 " I {B SPACES} i 
CO " : RETURN 

POKE 82, 14: POSITION 

"tl Ediths SPACESJE Restore" 
"5 Copy From[3 SPACES>E Swi 
"D Copy ToC5 SFACE33E Clear 

7 "E OverlayCS SPACES>Ej Inver 

? "a Save FontC3 SPACES3H Loa 

? "{ESC} {DEL LINED DeleteC6 S 
CINS LINE) Insert" 

? "{ESCXCLR TAB} Scroll Le-ft 

(SET TAB} Scroll RT" 

7 " <ta> CB> <EJ Reverse C3 SPACES 



SKE 1! 



P2=PMB 
3 U B 3 3 



2 40 
57, 3 



<.a r: 

: NEXT 
14,0 



P K 
POK 


£ E J " 

I : 7 



E 706 
E 532 



: FOR 

ii r -7 



tch " 

t " 

d F on 

PACES 



, 68 
53, 3: P 



1 = 1 TO 



t ■■ 

y {esc> 



{ESC} 
y E Graphics 



475 ? I: E Print mode E ANTIC 4S-:5" 
477 7 "D Color changeE DATA STM" 
480 7 "C Write Data E Quit ,! : RETURN 
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490 


FOR 1=0 TO 3: FOR J=0 TO 31: POKE SD+J+I 




0+4, I * 32 + J : POKE ASD+J+I*4 0+4, I *32+J : NE 




J : NEXT I : ? 


510 


OPEN #2,4,0, " K: " 


520 


P=PEEK (764) : IF P=255 THEN 520 


525 


POKE 82, 2: POSITION 0,0 


530 


IF P=60 THEN 520 


540 


IF P=39 THEN POKE 764,168 


550 


GET #2,K 


560 


IF K<>ASC("E") THEN 790 


570 


BOSUB 1750 


580 


FOR 1=0 TO 7: A=PEEK ( CHSET+C * 8+ I ) : FOR J 




TO 3:P0KE P0+ I *4+ J , A : NE X T J:NEXT I 


590 


POKE ASD+169+ (ANTIC* 10) , C: POKE ASD+190 




ANTIC* 30) , C 


60 


JX=0: JY=0 


610 


POSITION JX + 4, JY+ 1 


620 


? CHR$(3 2+128*FF> ; "-CLEFT]"; :FF=1-FF 


630 


IF STRIG(0)=0 THEN 750 


6 40 


IF PEEK (764) < 255 THEN ? " " ; : GOTO 520 


650 


ST=STICK (0) : IF ST=15 THEN 610 


660 


IF STRIG(0) THEN FOR 1=0 TO 100 STEP 2 




SOUND 0, 100-1 , 10, 8: NEXT I 


670 


POSITION JX+4,JY+1:7 " "; 


680 


JX=JX+(ST=7)-(ST=11) 


690 


JY = JY+ (3T=13) - (ST=14) 


7 00 


IF JX<0 THEN JX=7 


7 10 


IF J X > 7 THEN J X = 


720 


IF JY<0 THEN JY=7 


7 30 


IF JY>7 THEN JY=0 


7 40 


GOTO 6 10 


750 


POKE Al , PEEK «CHSET + C*B + JY) : POKE A2 , 2'- ( 




J X ) : POKE FUNC, 73: A = U3R (LOG IC ) 


760 


POKE CHSET+C*S+JY , A: FOR J=0 TO 3: POKE 




+J Y*4+J , A: NEXT J 


770 


FOR 1=0 TO 10: SOUND , I * 4 , 3 , 8 : NE X T I:S 




N D , , , 


780 


GOTO 650 


790 


IF KOASCCF" ) THEN S30 


8 00 


S = C:GOSLIE 175 


810 


FOR 1=0 TO 7 : A=PEEK (CH3ET+C*B+I ) : POKE 




SET+S*8+ I , A: NEXT I 


8 20 


C=S:GOTO 580 


830 


IF K< >ASC ( " T " ) THEN 370 


840 


S=C:GOSUB 1750 


850 


FOR 1=0 TO 7 : A=PEEK ( CHSET +S * 8+ I ) : POKE 




SET+C*8+I , A: NEXT I 


860 


C=S:GOTO 600 


870 


IF K<>ASCi"0") THEN 920 



*4 
XT 



= 
+ ( 



«: 



7- 
P0 
OU 

CH 

CH 
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10 
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1 
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3 



4 
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6 



S = C: 
FOR 
OKE 
SR (L 
POKE 
C = S: 
I F K 
FOR 
G + C* 
IF K 
FDR 
CjTO 
IF K 
FOR 
HSET 
IF K 
S = C: 
I FOR 
HBE 
+ C* 
I IF 
i FOR 
T I 
) : N 
IF 
CDE 
FOR 
ET + 
OTO 
IF 
{ IN 
FOR 
PEE 
*8 + 
IF 
FOR 



PDK 

IF 

FOR 

POK 

IF 

POK 

POK 

IF 

GOS 

TRA 

A = U 

CLO 

260 



OSUB 
= T 
2, PE 
GIC ) 
CHSE 
OTO 
>ASC 
= T 
+ 1 ) : 
>ASC 
= T 
80 

>ASC 
= T 
C*8 + 
>ASC 
OSUB 

1=0 

+ 8*8 
+ 1 , A 

< >AS 
1=0 
FOR 
XT I 

< >AS 
LIN 

I=JY 
*8+I 
580 

< >AS 
LIN 

1=7 
(CHS 
Y, 0: 

< >AS 
1=0 

THE 
CHS 

< >AS 
1=0 

CHS 

< > A S 
532 
532 

< >AS 
B 16 

1 19 
R ( 15 
E #1 



1750 
7: POKE Al , PEEK <CHSET + C*S+I ) : P 
EK ( CHSET+S*8+ I ) : POKE FUNC , 9 : A=U 

T+S*8+I , A: NEXT I 
580 

( "R" ) THEN 940 

7: POKE CHSET+C*8+ I , PEEK (CHROR 
NEXT I: GOTO 580 
( " C" ) THEN 960 
7: POKE CHSET+C*8+I , 0: NEXT I:G 



( " 
O 

I ) 
( " 

1 
TO 
+ 1 
: N 
C ( 
TO 
1 = 
: G 
C ( 
E> 

T 
+ 1 



PO 
EX 
) 



: A 
EE 
T 
" ) 
: I 
TO 
O 

UP 

T 

6: 

NE 



) THEN 980 

KE CHSET+C*8+I , 255- 

T I: GOTO 580 

THEN 1010 



PEE K ( C 



=PEEK (CHSET+S*8+I ) : POKE C 
K (CHSET+C*8+I ) : POKE CHSET 
I : GOTO 580 

THEN 1030 
(I)=PEEKCCHSET+C*8+I) :NEX 

7: POKE CHSET+C*B+I , I (7-1 
580 

} " ) AND K< >ASC ( " 
HEN 1050 

POKE CHSET+C*B+ I , PEEK (CHS 
XT I:POKE CHSET+C*B+7, 0: G 



C ( " <: 
E } " ) 
TO J 
ET + C 
GOTO 
C ( " -C 
TO 7 
N A = 
ET + C 
C ( " i 
TO 7 
ET + C 
C ( "Q 
4 8,0 
77, 
C ( " S 
10: P 
0: OP 
89, C 
: TRA 



DOWN 
THE 
Y ST 
*8+I 
580 
LEFT 
: A = P 
A-25 
*8+I 
RIGH 
: A=I 
*8+I 
" ) T 
: POK 
: GRA 
" ) T 
OKE 
EN # 
HSET 
P 40 



> " ) AND K < >ASC ( " 

N 1070 

EP -isPOKE CHSET+C*3+I, 

-1):NEXT IsPOKE CHSET+C 

>"} THEN 1100 

EEK (CHSET+C*8+I ) *2: IF A 

6 

, A: NEXT I : GOTO 5B0 

T3 " > THEN 1 130 

NT(PEEK(CHSET+C*8+I)/2) 

,A:NEXT I:GOTO 580 

HEN 1150 

E 53249, 0:POKE 53250,0: 

PHICS 0:END 

HEN 12 10 

195, 

1 , 8, 0, FN* 

) 

000: IF PEEK (195) THEN 1 
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13 10 
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1500 
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POKE 
IF K 
SOSU 
TRAP 

A = US 
CLQS 
120 
PDSI 
95) ; 
IF P 
C 19 
SOTO 
IF K 
ST = 
EN (S 
OS IT 
FOR 
NEXT 
Z = 0: 
EEK ( 
SOUN 
? A; 
IF P 
SOSU 
IF K 
SF=1 
GOTO 
GRAP 

POSI 
ION 
POSI 
FOR 

709 
SOUN 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



54286, 192: GOSUB 390:GOTO 52 
OASCC'L") THEN 1290 
B 1610:POKE 195,0 

1250:OPEN #1,4,0, FN* 
R ( 1619, CHSET ) 
E #1:TRAP 40000: IF PEEK(195) 







=0 THEN 
" CBELLJ *ERROR -" ;PEEK(1 

4,0:7 " 



TION 14,0: 

" * " 

EEK (764) < 255 THEN POSITION 1 

SPACES} " : GOTO 1200 

127 
< >ASC f " W" ) THEN 1370 
: ED=1 1 : GOSUB 20sN*=" <3 SPACE 
TR$(C) ) :N$(1,L)=STR$(C) :L=LE 
I ON 14,0 
1=1 TO L:? CHR$ < ASC < N* ( I , I ) ) 

I : ? " > " ; 
FOR 1=0 TO 2: FOR J=0 TO 1+<I 
CHSET+CtB+Z) : Z=Z+1 
D 0, ( I *3 + J ) * 10 + 50, 10, 8 
",":NEXT J: NEXT I: SOUND 0,0, 
EEK < 764) =255 THEN 1350 
B 20: GOSUB 390: GOTO 520 
OASCC'8" ) THEN 2000 
-CF.-POKE 1549, RAM-B+2*CF 

520 
HICS 2+16: SETCOLOR 4,1,4:P0S 

#6; "SUPERHHSO + " 
TION 5,5:? #6 ; " p at i en c e £ 3 N J 
2,7:? #6; 'ORIGINAL STA- 
TION 2,8:? #6;"CHARLES BRANN 
1=1536 TO 1710:READ A:POKE I 
,A:SOUND , A , 1 , 4 : NEX T I 
D 0, 0, 0, 0: RETURN 
7 2, 169, 100, 141, 10,212 
141, 24, 208, 141 , 26, 20 8 
169, 6, 141,9,212, 104 
64, 104, 104, 133, 204, 104 
133, 203, 169, 0, 133, 205 
169, 224, 133, 206, 162, 4 
160, 0, 177, 205, 145, 203 
200, 208, 249, 230, 204, 230 
206, 202, 208, 240, 96, 104 
162, 16, 169, 9, 157, 66 
3, 104, 157,69,3, 104 
157,68,3,169,0,157 
72, 3, 169, 4, 157, 73 
3, 32, 86, 228, 96, 104 



S } " 
N (N 

+ 12 

> ) 

, 



: L = L 
*) : P 

8) ; : 

: A = P 



ITI 
" : P 



ON 5 
OSIT 



ON" 

, A: POKE 
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16 10 


1620 
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1690 
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1810 
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DATA 162,16,169,5,76,58 

DATA 6,9,104,169,0,9,0,133 

DATA 212,169,0,133,213,96 

DATA 72, 138, 72, 152, 72, 169, 0, 162, 0, 160, 

DATA 141,10,212,141,26,208 

DATA 142,24,208,140,25,208 

DATA 169, 0,141, 22, 208, 141, 10,210, 169, 6, 

141,9,212, 169, 0, 141, 23, 208, 169, 156, 141, 

0,2 

DATA 104, 168, 104, 170, 104, 64, 72, 169, 0, 14 

1 , 10,212, 141 , 26, 208, 169, 104, 141 , 10,210, 

141,0,2, 104, 64 

GDSUB 20:POSITION 14,0:7 "Filename?"; 

FN*=" " : K=0 

POKE 20,0 

IF PEEK ( 764) <255 AND PEEK ( 764 ) < >39 AND 

PEEK (764)060 THEN 1670 

IF PEEK (20) < 10 THEN 1640 

? CHR$ (21+1 1 *K) ;" CLEFT} ";: K=l-K: GOTO 16 

30 

GET #2, A 

IF A=155 THEN ? " " ; : FOR 1=1 TO LtN(FN$ 

)+10:^ "{BACK Si"; : NEXT I : RETURN 

IF A=126 AND LEN(FN*)>1 THEN FN$=FN$(1, 

LEN (FN*) -1 ) : ? " i LEFT J •" ; CHR* i A ) ; : GOTO 16 

30 

IF A=126 AND LEN(FN$)=1 THEN ? CHR$(A) ; 

: GOTO 1620 

IF A=58 OR (A>47 AND A<58) OR (A>64 AND 

A<=90) OR A=46 THEN 1720 
GOTO 1630 

IF LEN(FN$)<14 THEN FN$ (LEN (FN*) +1 ) =CHR 
* (A) : ? CHR* ( A) ; 
GOTO 1630 
END 

REM GET CHOICE OF CHARACTER 
CY=INT (MRY/32 ) : C X =MR Y-32 * C Y 
C=CX+CY*32 

POKE SD+CX+CY*40+4, C+128 
POKE ASD+CX+CY*40+4, C+128 

IF STRIG(0)=0 OR PEEK (764) <255 THEN MRY 
=C:GOTO 1900 

ST=STICK (0) : IF ST=15 THEN 1800 
POKE 53279,0 
GOSUB 1900 

CX=CX-(ST=11)+(ST=7) : CY=CY- (ST=14)+ (ST= 
13) 

IF CX<0 THEN CX=31 : CY=CY-1 
IF CX>31 THEN CX=0:CY=CY+1 
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IF CY 

IF CY 

GOTO 

POKE 

POKE 

RETUR 

IF K < 

POKE 

POKE 

(ANT I 

IF AN 

POKE 

FOR I 

DL + 22 

POKE 

COLF0 

C0LF2 

POKE 

POKE 

POKE 

ANTIC 

POKE 

EXT I 

POKE 

GOSUB 

E ASD 

IF K< 

ST = 0: 

POSIT 



<0 

17; 

SD 

AS 

N 

>A 

54 

AS 

C* 

T I 

DL 

= 1 

, 1 

51 

— r> 

— j- 

= 1 
16 
16 
54 
= 
51 



THEN CY=3 

THEN CY=0 
7 

+CX+CY*40+4, C 
D+CX+CY*40+4 , C 

SCC "A") THEN 2200 

286, 

D+169+ (ANTIC* 10) , 0: POKE ASD+190+ 

30) ,0 

C=l THEN 2 100 

+ 24, 5 

9 TO 23: POKE DL+I,4:NEXT I : POKE 

2, 104: ANTIC=1 

*16+6:C0LFl=6*16+6 

0* 16+8: C0LF3=15* 16+8 

64, COLF0: POKE 1648,C0LF1 

50, C0LF2: POKE 1677,COLF3 

286, 192: T = 51 : GOTO 2127 

:POKE DL+23, 6: POKE DL+24,7 

2,0: FOR 1=19 TO 22: POKE DL+I,2:N 



KK = PE 
OTO 5 
IF KK 
P = PEE 
GET 4* 
I F K > 
EN K = 
I F K > 
HEN K 
IF CT 
POKE 
) +CT 
FOR I 
PEEK ( 
+ 1 , PE 



428 

330 

190 

ASC 

D=l 

ON 

SPA 

Pr 
SPA 

Pr 
SPA 
K (5 


5 T 
(76 

-K 
A 
+ 64 

T •-> 

K-3 

(AN 
SD + 
K : C 
T 
SD + 
K (A 



6, 192: T=S5 

:POKE ASD+169+ < ANTIC*10) 
+ ( ANTIC*30) , C: GOTO 520 
("P" ) THEN 3000 
0: GOSUB 20 
14,0: CT=0 

cEsjQEMin Banai " 

ess aEBISJ to return" 

CES}to menu" 

ess aj»Ji*i to clear" 

CESJtyping area" 

3279): IF KK=6 THEN GOSUB 



C: POK 



;90: G 



HEN 2600 
4) : IF P = 25J 



THEN 



270 



128 AND K<160 TH 



ND K<32 OR K 

: GOTO 2306 

AND K<96 OR K>=160 AND K< 



>4 T 



TIC+1 ) *17 THEN 2320 

16 1+CT,K:P0KE ASD+181+(ANTIC*2 

T = CT+l:GOTO 227,3 

O 17* ( ANTIC+1 ) : POKE ASD+161+I, 

162+1) :POKE ASD+181+(ANTIC*20) 

SD+182+(ANTIC*20)+I) 
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2330 


NEXT I : CT=17* (ANTIC+1 ): GOTO 2310 


2600 


FOR 1=0 TO 19* (ANTIC+1 ): POKE ASD+161+I, 




0:POKE ASD+1B1+ ( ANTIC*20> +1 , 0: NEXT I : CT 




=0:GOTO 2270 


30 


IF K<>ASC("K"> THEN 3500 


3010 


ST=0: ED=10: SOSUB 20:DIG=0 


3020 


POKE 82, 14: POSITION 14,0:7 "COLOR CHANG 




E MODE" 


3030 


? " PRESS K TO RETURN" 


3040 


? "{5 spaces:: to menu" 


3050 


? " E PLAYFIELD 0" 


3060 


? " D PLAYFIELD 1 " 


3070 


? " £ PLAYFIELD 2" 


30S0 


? " E PLAYFIELD 3" 


3090 


7 " E BACKGROUND":? " E READ REGISTER" 


3100 


GET #2, K: DIS=0: IF K=ASC("0") THEN DIS=18 


3105 


IF K=ASC("R") THEN RDE=l:GOTO 3100 


3 110 


IF K=ASC ( " 1 " ) THEN DIS=3 1 


3 120 


IF K=ASC("2") THEN DIS=2 


3 130 


IF K=ASC("3") THEN DIS=4 


3 140 


IF K=ASC("B") THEN DIS=48 


3 150 


IF K=ASC("K") THEN GOSUB 390: GOTO 520 


3155 


IF RDE=1 THEN 3410 


3160 


IF DIS=0 THEN 3100 


3 170 


ST=2: ED=10: GOSUB 20 


3180 


POKE 82, 14: POSITION 14,0 


3 190 


? "E GREY GOLD |K ORANGE" 


3200 


7 "E RED<3 SPACES] E PINK E PURPLE" 


3 210 


? "& BLUE E BLUE E LT.BLUE" 


322 


7 "EE TURQUOISE QU GREENBLUE" 


32 3 


7 "EE GREENtS SPACES] EE YELLOW/GR" 


3240 


7 "EE ORANGE/GR EE LT. GRANGE" 


3245 


TRAP 3400 


3250 


INPUT COL:? " C 3 SPACES! Lumi nosi t y " 


3260 


7 " i nput ( 0-1 4> " ; 


3270 


INPUT LUM 


3280 


CLCHG=C0L*16+LUM 


3 2 9 


POKE 1646+DIS,CLCHG 


3300 


GOTO 30 10 


3400 


TRAP 40000: POSITION 14,6:7 "TRY AGAIN": 




FOR 1=1 TO 100:NEXT I:POSITION 14,6:7 " 




[9 SPACES] ": POSITION 14, 6: GOTO 3245 


34 10 


RDE=0:DRE=PEEK(1646+DIS) : POSITION 14,9: 




7 "COLOR REGISTER "; CHR* i K );" = ";; " 




C3 SPACES] "; " C3 LEF T J " ; D RE : GOTO 3 100 


350 


IF KOASCC'D") THEN 520 


3510 


POKE 53243, 0:POKE 53249, 0:POKE 53250,0: 




POKE 82, 0: ST=0: ED=10: GOSUB 3600 


3515 


GOSUB 3620: N*=" " 
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3520 


POSITION 2,0:7 "First 




be made":? "into DAT 




UT N$: A=ASC <N$) : GOSUB 


3 5 3 


SST=A:? " Last lette 




N$:fi=ASC(N$) :GD3U3 37 


3534 


TRAP 36 10 


3 5 3 5 


? " DATA LINE START ( 




DBS)": INPUT L : I F L<400 


353 6 


DTASTART=L:ED=5:ST=0: 


3540 


FOR J=SST TO Li_T-l:PO 




CDOWN] " ; L; " D . " ; : FOR 




SET + J*8 + fi) ; " , " ; -.NEXT 


3550 


? :? "CONT" : POSITION 


3560 


POKE 842, 12: L=L+10: ED 




: N E X T J 


3 565 


POSITION 0,0:? " SAVE 




F N* ( 1 , 1 ) =" Y" THEN SO 




DTASTART, L: GOTO 3570 


3566 


IF N* (1 , 1 ) <>"N" THEN 


3570 


? " Fini shed " ; : INPUT 




THEN 1140 


3575 


IF N* ( 1 , 1 ) < >"N" THEN 




N 0,0: GOTO 3570 


3580 


POKE 53248, 64: POKE 53 




64: ED=10: ST=0: GOSUB 3 




TION 2,0: GOSUB 380 


359 


GOSUB 330: GOSUB 390: G 


3600 


POSITION 0,0:FOR I=ST 




{39 SPACES} " : NEXT I:R 


3 6 10 


TRAP 40000: GOTO 3534 


3620 


POSITION 0,0:? " DELE 




; : INPUT N$: IF N* < 1 , 1 > 




=0: GOSUB 3600: RETURN 


36 3 


IF N$ < 1 , 1 ) < >" Y" THEN 


3 63 5 


TRAP 3690 


3640 


? " START LINE NUMBER 




LINE NUMBER" ;: INPUT 


3645 


IF L<4000 OR LLT<L TH 




B 3600: POSITION 0,0: G 


3646 


ED=10: ST=0: GOSUB 3600 


3650 


FOR J=L TO LLT STEP 1 




{DOWN}"; J:? :? "CONT" 




842, 13: STOP 


3660 


POKE B42,12:NEXT J : ED 




0: RETURN 


3690 


TRAP 40000: GOSUB 3600 


3700 


IF A>=32 AND A<96 THE 


37 10 


IF A> = AND A<32 THEN 


3720 


IF A>127 THEN A=A-128 


3730 


RETURN 



letter of FONT to 
A statements" ; : INF 

3700 
r o-f FONT" ; : INPUT 
00: LLT=A+1 : ? 



ust be 4060 or- m 



THEN 3535 

GOSUB 3600 

SI TION 0,2:? " 

A=0 TO 7:? PEEK(CH 

A: ? " CLEFT} " ; " " 

0,0: POKE 842, 13: STOP 

=10: ST=0: GOSUB 360 

FONT" ; : INPUT N$: I 
SUB 1610: LIST FN*, 

GOSUB 3600:GOTO 3565 
N$: IF N* ( 1 , 1 ) =" Y" 

GOSUB 3600: POSIT 10 

24^, 64: POKE 53250, 
600: POKE 32,2:P0SI 

OTO 520 

TO ED:? " 
ETURN 

TE ANY DATA LINES" 
="N" THEN ED=10:ST 

3620 

" ; : INPUT L: ? " END 

LLT 

EN ED=10: ST=0: GOSU 

OTO 3640 

0:POSITION 0,2:? " 
:POSITION 0,0:POKE 

=10: ST=0: GOSUB 360 

:GOTO 3635 

N A=A-32: RETURN 

A=A+64: RETURN 
:GOTO 3700 
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Program 2. Character Set Loader 



1000 REM CHLQAD-CHARACTER SET LOADER 

1005 OPEN #1 , 4, 0, "D: FONT" : REM YOUR FILENAME 

HERE 
1010 X = 16: CHSET= (PEEK ( 106) -8) *256: POKE 756, C 

HSET/256 
1020 ICC0M=S34: ICBADR=836: ICBLEN=S40 
1030 POKE ICBADR+X+1 , CHSET/256: POKE ICEADR+X 

,0 
1040 POKE ICBLEN+X+1 , 4: POKE ICBLEN+X,0 
1050 POKE ICCOM + X , 7: A = U3R C ADR < "hhhEJLVE?:" > , X > : 

REM CALL CIO 
1060 CLOSE ttl 



Program 3. Character Set DATAmaker 



100 REM 

102 GRAP 

105 DIM 

110 POSI 

120 POSI 



130 
140 
150 
160 
170 
180 
190 
200 
210 
220 



250 
260 
270 
280 
290 
300 

305 
310 

315 



CH 
HI 
F$ 
TI 
TI 



#6 
#6 
#6 
#6 
#6 
#6 
#6 
#6 
#6 
#6 



230 IF P 
240 BRAP 



EE 
HI 



? #6 
? #6 
? #6 
? «6 
? #6 
? #6 
@ u :? 
POKE 
? " < 
EN 3 
IF F 



n 

8 
UP 
10 
$ = 



SET 
CS 
< 14 
ON 
ON 

#6 
A S 
MEN 
CHA 
OPT 
LIS 
NOT 
STA 
SET 

#6 
K (5 
CS 
THE 
WIL 
AS 
USE 
THE 
PRO 
6; " 
2, 
} CD 



D 
1 + 

) , 



ET 
TS 
RA 
IM 
TI 
P 
ND 



ATAMAKER 

16:CHSET=(PEEK(106>-8)*256 

OF* (14) 

0:? #6; "character set" 

2:7 #6; "datamaker " 

THIS UTILITY CREATES" 

OF DATA STATE-"; 

FROM A SAVED" 
CTER SET. IT" 
IZES BY ONLY" 
NO CHARACTERS" 
RESENT IN THE" 
ARD CHARACTER" 



; "PRESS UiVMJj:" 

3279)03 THEN 230 

1 + 16 
DATA STATEMENTS" 

L BE WRITTEN" 

A list FILE." 
enter TO MERGE" 
DATA WITH YOUR" 

GRAM. " : ? #6: ? #6; ' 

:POKE 87,0 

EL LINE) " ; : INPUT 



ld:Hd:Mi**Wd:r:K 



F* : IF F$=' 



TH 



'C" OR F*="C: 



THEN CASS=l:GOTO 33 



320 ? " ib UP>{6 DEL L I NE } ^T!Hd:»iHJ^:JI*i 

<8 spaces} isiManrGai" : 7 :? 

ZZ& ? "{UPITDEL LINE}";: INPUT OF*: IF 0F$=' 
THEN 330 
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3 40 
345 
350 
360 

370 
375 
377 

380 

381 



382 
38 3 

384 

385 
387 
390 
400 
420 

430 
440 
445 
450 

460 
470 

480 

490 

1000 

1005 

1010 

1020 

1030 

1040 
1050 

1060 



? " € 

{5 S 
INPU 
CLOS 
GRAF 
IF C 
ER" : 
POSI 
GDSU 
IF C 
TAPE 
OPEN 

mr<:3 

? #2 

1=0 

EXT 
? #2 
? #2 

? #2 
HSET 
? #2 
LINE 
FOR 
FOR 
IFF 
THEN 
NEXT 
IF 

LINE 
? #2 
: ? # 
NEXT 
POKE 
CHR$ 
? "t 
NEW 
REM 
OPE 
X = l 
ICC 
POK 

,0 

POK 

POK 

REM 

CLO 



JQ 



3 UP](3 DEL LINEiliaBa 

PACE5> hT:W:»fc*rf:H=<::i=<:rEr : ? :? 

T SLINE 

E #1 

HICS 2+16: SETCOLOR 4,3,0 

ASS THEN ? #6:? #6; "POSITION CHARACT 

? «6;"SET TAPE, HIT ErjOBEC 

TION 5,6:7 #6 ; " wor k i n g { 3 NJ" 

B 1000: REM LOAD CHARACTER SET 

ASS THEN ? #6; " {CLEAR} INSERT OUTPUT 

, " : ? #6; "PRESS QaEHI" 

#2, 8, 0, OF*: POSITION 5,6:7 #6;"2l!liEH 

O" 
; SLINE; "CHSET=< PEEK (106) -B> *256:F0R 
TO 1023: POKE CHSET+ I , PEEK ( 57344+ I ) : N 
I " 

; SLINE+1 ; "RESTORE ";SLINE+5 
; SLINE+2; "READ A: IF A=-l THEN RETURN 



; SLI 
+ A*8 
; SLI 
= SLI 
1=0 
J = 
EEK ( 

F=l 

J 
NOT 
= LIN 
; LIN 

■*» J 

I : ? 

82, 
(34) 
o me 



NE + 3; 
+ J . B: 
NE + 4; 
NE + 4 
TO 12 
TO 7 
CHSET 



"FOR J=0 TO 7: READ B:POKE C 

NEXT J" 

"GOTO ";SLINE+2 

7: F = 

+1*8+ J ) < >PEEK (57344+1 *8+J ) 



F THEN 460 
E+l 
E; " D 
" ; PEE 
#2; L 

; OF* 

rge t 



ATA ";:? #2; I ; : FDR J=0 TO 7 
K (CHSET+I*8+J) ; : NEXT J:? #2 

INE+1 ; "DATA - 1 " 
All finished! Use ENTER "; 

:he file." 



HIBH-SPE 
N #1,4,0, 
6:REM $10 
OM = 834: IC 
E ICBADR+ 



ED LOAD OF CHARACTER SET 
F*:REM OPEN FILE 

BADR=836: ICBLEN=840 

X+l , CHSET/256: POKE ICBADR+X 



E ICBLEN+ 
E ICCOM+X 
CALL CIO 
SE #1: RETURN 



X+1,4:P0KE ICBLEN+X,0 

, 7: A = USR (ADR ( "hhhBaLVE" ) , X) : 
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Super TextPlot 



Donald L. Vossler 



This modified version of Charles Brannon's "TextPlot" runs more slowly, 
but adds many features for fancy text displays. 

"Super TextPlot" is a machine language utility that lets you plot 
character images in any Atari graphics or text mode. The idea for 
the program was inspired by Charles Brannon's "TextPlot" utility 
(COMPUTE's First Book of Atari Graphics). Super TextPlot provides 
the following capabilities. 

1. Plots the entire ATASCII character set, including upper/lower- 
case, graphics characters, special symbols, and the reverse video 
version of each of these characters in any graphics or text mode. 
Alternate character sets may be plotted by changing the CHBAS 
vector (location 756) to point to the alternate character set. 

2. Allows the user to specify a string of characters to plot. The 
only length limitation for the string is that it must fit in the display 
area when it is plotted. 

3. Allows the user to specify the starting position of the string to 
plot. This position can be any (X,Y) coordinate on the display. 

4. Gives the user the option of overwriting the graphics already 
on the screen or of merging the plotted characters with the 
existing graphics. 

5. Allows the user to select which color registers are to be used for 
the foreground and background of the characters plotted. 

6. Allows the user to scale each character string independently in 
the horizontal and vertical directions by specifying the number of 
rows and columns for each character. The actual size of each char- 
acter varies with the pixel size of the graphics mode selected. 
Many different-sized characters can be plotted on the same 
graphics screen. 

7. Allows the user to select one of four angular orientations to 
plot each character string. The four available orientations are 90 
degree increments from the horizontal. 
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4 



All of these capabilities are available using one simple invoca- 
tion of a machine language routine from the USR function in 
BASIC. 

Underlying Mathematical Concepts 

The fundamental trigonometric relationships used by Super 
TextPlot are illustrated in Figure 1. The angle THETA (0) is mea- 
sured from the horizontal + X axis to the baseline of the character 
string to be plotted; CHNUM is the index number of each char- 
acter in the string; NROWS and NCOLS are the total number of 
rows and columns, respectively, to be plotted for each character; 
ROW and COL are the particular row and column of the pixel to 



Figure 1. Super TextPlot Trigonometric Relationships 



(XS, YS) 




+ Y 
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be plotted; XS and YS are the coordinates of the lower-left corner 
of the first character to be plotted (before the string is rotated). 
Using these definitions, the appropriate formulas for the point to 
be plotted (XP YP) are the following: 

XP = XS + cos(9)*(CHNUM*NCOLS-l-COL) - sin(Q)* 

(NROWS-1-ROW) 
YP = YS - sin(Q)* (CHNUM*NCOLS-l-COL) - cos(0)* 

(NROWS-1-ROW) 

The derivation of these formulas is shown in Figure 2. 
Figure 2. Derivation of Plotting Formulas 

XP = XS + dXl-dX2 

XP = XS + cos(THETA)*«CHNUM-l)*NCOLS + (NCOLS-1-COL)) -sin 

(THETA)*(NROWS-l-ROW) 
XP = XS + cos(THETA)*CHNUM*NCOLS-l-COL) - sin(THETA)*(NROWS 

-1-ROW) 

YP = YS-dYl-dY2 

YP = YS - sin(THETA)*((CHNUM-l)*NCOLS + (NCOLS-l-COL))-cos 

(THETA)*(NROWS-l-ROW) 
YP = YS - sin(THETA)*(CHNUM*NCOLS-l-COL) - cos(THETA)*(NROWS 

-1-ROW) 

Using Super TextPlot 

With the appropriate formulas derived, the Super TextPlot routine 
was developed. The USR function is used to invoke the utility. 
The syntax for this function is: 

A=USR(flDR(ftSM$) ,ADR(S«) , LEN (S*> , XS, Y 
S, ORIENT, NROWS,NCOLS,FCR,BCR, PRIOR) 

The parameters specified above have the following meanings: 

ADR(ASM$) This parameter is the starting address of the Super 
TextPlot routine. Since the loader for the routine 
uses a character string (ASM$) to reserve space in 
memory for the routine, the starting address is 
merely the address of this string. 

ADR(S$) This parameter is the address of the string to be 

plotted. Usually it will be the value returned by the 
ADR function for the string since this is the first 
character in the string. However, any address is 
valid. For example, the address could point to a 
sub-string contained in a long string. 
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LEN(S$) This parameter specifies how many characters are 

to be plotted. The LEN function provides the 
appropriate value if the entire string is to be 
plotted. Other values may be appropriate for plot- 
ting sub-strings. If this parameter is zero, nothing 
is plotted, and the USR function simply returns to 
the BASIC program. 

XS,YS These two parameters specify the (X,Y) coordi- 

nates of the starting position of the string to be 
plotted (lower-left corner of the first character). 
This point is also used as the pivot point when the 
string is rotated (see ORIENT parameter). (XS,YS) 
must define a point within the limits of the current 
graphics mode. 

ORIENT This parameter specifies the angular orientation of 

the character string to be plotted. The string is 
rotated counterclockwise from the horizontal + X 
axis about the point (XS,YS). The parameter 
ORIENT should be specified as an integer which is 
interpreted as follows: 

ORIENT = 0, degree rotation 
= 1,90 degree rotation 
= 2,180 degree rotation 
= 3,270 degree rotation 

The value of ORIENT is interpreted MOD(3) so 
that ORIENT = 4 is the same as ORIENT = 0, 
ORIENT = 5 is the same as ORIENT = 1, etc. The 
high byte of the two-byte integer passed by the 
USR function to the machine language routine is 
ignored. Figure 3 illustrates the orientation of 
strings plotted at each of the four orientations. 

NROWS The parameter specifies how many rows per char- 

acter are to be plotted and therefore determines 
the height of each character. Normally, NROWS is 
greater than or equal to eight; however, positive 
values less than eight are valid and will result in 
characters plotted with "missing" rows. This may 
be useful for crowding strings into a limited space, 
or it may simply produce unreadable characters. If 
NROWS is zero, nothing is plotted, and the USR 
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NCOLS 



FCR 



BCR 



function returns to the BASIC program. The 
maximum acceptable value for NROWS is 255 (the 
high byte of the two-byte integer passed to the 
machine language routine by the USR function is 
ignored). 

This parameter specifies how many columns per 
character are to be plotted and therefore deter- 
mines the width of each character. The restrictions 
on the range of values for this parameter are the 
same as those specified for the NROWS param- 
eter. 

This parameter specifies the foreground color 
register to be used when plotting the string. This 
indirectly specifies the color of the characters 
plotted in the framework of the standard 
SETCOLOR-COLOR concept embodied in the 
Atari BASIC language. In text modes (GRAPHICS 
0-2) this parameter should be specified as an 
ATASCII code. Using Super TextPlot in this 
manner allows block printing of character images 
which are typically used as headers to identify 
printed listings. For example, FCR = 160 would use 
the reverse video space to plot large characters in 
GRAPHICS 0. 



This parameter specifies the background color 
register for each character. The comments 
regarding the use of FCR in text modes also apply 
for this parameter. If the value of the parameter 
PRIOR (see below) is zero, then the BCR param- 
eter has no effect on the characters plotted. 

PRIOR This parameter specifies the priority of the back- 

ground of the character string plotted. If PRIOR is 
zero, the background of the characters is not 
plotted and existing graphics on the screen will 
not be disturbed. If PRIOR is a positive value, the 
color specified indirectly by BCR is plotted for the 
background (this color may be black). 

The following items should be noted in relation to specifying 
these parameters: 

1. The Super TextPlot routine does not check to make sure that 
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points plotted to form a string fall within the bounds of the 
display area. The user must insure that all the points to be plotted 
will fall within the display limits. Plotting points which are out of 
range usually results in a system crash. 

2. Reverse video characters may be plotted by two different 
methods: 

a. Specify reverse video characters in the string to be plotted; or 

b. Specify normal characters in the string and reverse the values 
forFCRandBCR. 

3. If the parameters FCR and BCR are assigned the same value 
(and PRIOR is positive), the string will be plotted but will appear 
as contiguously colored blocks. 

4. If an improper number of parameters is specified in the USR 
function statement, Super TextPlot will return to the BASIC 
program but take no other action. 

5. The value A returned by the USR function has no significance. 
Figure 3. Angular Orientations of Character Strings 
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Loading Super TextPlot 

One of the problems associated with writing utility routines in 
machine language is determining a safe range of memory loca- 
tions which can be used to store the routine. This problem is 
complicated by various available memory configurations, 
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memory used by custom display lists, player/missile graphics, 
and other machine language routines. 

Super TextPlot solves all of these problems by providing the 
machine code in a relocatable format. All of the addresses in the 
DATA statements are relative addresses offset from the beginning 
of the routine. These addresses are flagged as minus numbers in 
the DATA statements. When the loader routine is invoked, it 
reserves a character string (ASM$) in which the machine code is 
stored. As each instruction code is loaded into this string, the 
addresses are modified to reflect the actual memory locations 
utilized. 

Applications for Super TextPlot 

Since Super TextPlot is a utility program, it can be treated as an 
extension to the BASIC programming language and therefore 
becomes one of the tools available to a programmer. Obvious 
examples for the use of this routine include labelling graphs and 
bar charts, adding text to graphic game displays, and developing 
colorful and attractive message displays. Super TextPlot can be an 
effective marketing/sales tool. A variety of textual messages can 
be displayed on a demonstration computer system in order to 
attract customers and provide information in an eye-catching 
format. 

Super TextPlot Demonstration 

1000 REM 

1010 REM INITIALIZATION 

1020 REM 

1030 DIM St(40):DE6 :? "LOADING ASSEMBLY COD 

E" :? "45 SECOND DELAY . . . " : GQSUB 8000 
1040 REM 

1050 REM DEMO ttl 

1060 REM 

1070 GRAPHICS 7+16 

1080 St="SUPER TEXTPLOT": XS = 24: YS = 24 : OR I ENT = 

0: NROWS = 24:NCOLS = 8: FCR = 3: BCR = 0: PRIOR = 0: 

GOSUB 8000 
1090 S*="FOR" : XS=68: YS=44 : OR I ENT=0 : NROWS=B:N 

C0LS=8: FCR=1 : BCR=0: PRIOR=0: GOSUB 8000 
1 100 S*=" ATARI" : XS = 0: YS = 95 : OR I ENT = : NR0WS = 32 

:NC0LS = 32: FCR = 2: BCR = 0: PR I OR = : GOSUB 800 


1110 S*=" COMPUTE ! " : NR0WS=8: NCOLS=8: FCR=3: BCR 

= 1 : PRIOR=l 
1120 XS=7: YS=64:0RIENT=1 : PRIOR=l : GOSUB 8000 
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1130 XS=151: YS=2: 0RIENT=3: GOSUB 8000 
1140 GOSUB 7000 
1150 REM 

1800 REM DEMO #2 

1810 REM 

1820 GRAPHICS 7+16 

1830 COLOR 3 

1840 PLOT 34,2:DRAWT0 126,2:DRAWTO 126,94:DR 

AWTO 34,94:DRAWTO 34,2 
1850 PLOT 51,19:DRAWT0 1 09 , 1 9 : DRAWTO 109,77: 

DRAWTO 51,77:DRAWT0 51,19 
1860 PLOT 60,28:DRAWTO 1 00 , 28 : DRAWTO 100,68: 

DRAWTO 60,68:DRAWTO 60,28 
1870 PLOT 34,2:DRAWT0 60,28 
1880 PLOT 126,2:DRAWT0 100,28 
1890 PLOT 126, 94: DRAWTO 100,68 
1900 PLOT 34,94:DRAWT0 60,68 
1910 S*=" ATARI " : FCR=2: BCR=0: NR0WS=8: NC0LS=8: 

PRIOR=0 
1920 XS=60: YS=27: ORIENT=0: GOSUB 8000 
1930 XS=101: YS=28: 0RIENT=3: GOSUB B000 
1940 XS=98: YS=69: 0RIENT=2: GOSUB 8000 
1950 XS=58: YS=67: ORIENT=l : GOSUB 8000 
1960 NROWS=16: NCOLS=l 1: FCR=1 
1970 XS = 53: YS=18: OR I ENT = : GOSUB 8000 
1980 XS=1 10: YS=21 : 0RIENT=3: GOSUB B000 
1990 XS=107: YS=78: ORIENT=2: GOSUB B000 
2000 XS=50: YS=75: ORIENT=l : GOSUB 8000 
2010 XS = 61:YS = 67: OR I ENT = : FCR = 3 : BCR = 2 : NROWS = 

39: NC0LS=39: PRIOR=l 
2020 FOR 1=1 TO 8 

2030 S*="COMPUTE ! " : S*=S* < I , I ) : GOSUB 8000 
2040 NEXT I 
2050 GOSUB 7000 
2060 GOTO 2060 
7000 REM 

7010 REM COLOR FLASH ROUTINE 

7020 REM 

7030 FOR 1=1 TO 50:FOR 3=0 TO 2:SETC0L0R J,R 

ND (0) *16, RND (0) *16: FOR W= 1 TO 5:NEXT W: 

NEXT J:NEXT I : RETURN 

7997 REM 

7998 REM -- SUPER TEXTPLOT ROUTINE 

7999 REM 

8000 IF ASMLD=1 THEN A=USR < ADR < ASM* ) , ADR < S» ) 
,LEN (St) , XS, YS, ORIENT, NROWS,NCOLS, FCR, B 
CR, PRIOR) : RETURN 

8010 ASMLD=1 

8020 DIM ASM*<725) 
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8030 
8040 
8050 
8060 
8070 
8080 
8090 
8100 
8110 
8120 
8130 
8140 
8150 
8160 
8170 
8180 
8190 
8200 
8210 
8220 
8230 
8240 
8250 
8260 
8270 
8280 
8290 
8300 
8310 
8320 
8330 
8340 
8350 
8360 
8370 
8380 
8390 
8400 
8410 
8420 
8430 
8440 
8450 
8460 
8470 
8480 
8490 
8500 
8510 



FOR 

READ 

ON < 

NEXT 

BOTO 

READ 

ADDR 

ADDR 

ADDR 

POKE 

POKE 

1 = 1 + 

RETU 

READ 

IF B 

POKE 

POKE 

1 = 1 + 

RETU 

POKE 

RETU 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 



1 = 
A 

SG 
I 
8 
B 

= A 

HI 

LO 
I 
I 

1 

RN 
B 

<0 
I 
I 

1 

RN 
I 

RN 
1 
1 
1 
1 



ADR(ASM*) TO ADR(A 
N<A)+2) GOSUB 8080 
000 



SM*) +724 
, 8160, 8220 



BS(A)+256*ABS(B)+ADR(ASM$) 
=INT (ADDR/256) 
=ADDR-256*ADDRHI 
, ADDRLO 
+1 , ADDRHI 



THEN 8090 
+ 1 , B 



, A 

04, 
04, 

73, 
73, 

1 , 2 
6, 1 
1 , 1 
19, 
17, 
16, 
254 
41 , 

72, 
1 , 1 
7,- 
42, 
1,2 
8,- 
8,- 
72, 
7,~ 

1»- 

69, 
73, 
40, 
40, 
73, 



14 
15 

-l 

08 
73 
73 
-1 
-1 
-1 

,0 

-7 
24 
-6 
73 

If 

-2 
38 
1, 

if 

-5 
24 

i. 

1 , 
-1 
46 
3, 
-8 



1 ,- 

7,- 
55, 
6, - 

- 1 i 

-1 

-1 

13 

23 

23 

,32 

, -1 

,25 

,"1 
, "6 

1 ,- 

,-9 

208 
32, 
,"1 
,-1 
173 
237 
,-1 
, 17 
174 
, -1 



255, 
255, 
0, 201 
1 , 208 
96, 17 
0, -1 , 
8, -1 , 
3, 204 
8. -17 
7,-17 
, -32 , 
,206, 
5, 208 
, 32, - 

, ~1 , 1 
-195, 
1 , 169 

,-1, 1 
, 3, 76 
-138, 
, 177, 
,240, 
, -135 

,208, 
4,-2, 
»-4,- 

, 162, 



, 10, 1 
, 202, 
, 10, 2 
, 1 ,96 
3 , —6 , 
41, 3, 
133, 2 
, 169, 
, -1,5 

,-1,1 
-1 , 17 
-7,-1 
, 3, 76 
138, - 
74,-1 
-1 , 14 

74, -9 
, -248 
-1, 14 
205, 1 
2, 169 
,-1,2 
1,141 
5, 173 
-1, 17 
1 , 142 
1 , 172 



70, 240, 8 
76, -6, 
40, 1 , 96 
, 173, -8 
-1 , 208, 1 
141,-10 
03, 173 
0,141 
6, 173 
6, 3, 76 
3, -6, -1 
, 174, -7 
, -251 , 
1 , 140,-3 
7, -1 , 172 
0, -20, -1 
141,-9 
, -1 , 236 
,0, 172 
0,-5,-1 
72,-3,-1 
, 1, 141 
40, 9, 56 

,-1,-1 

,0,-1 

3,-1,-1 

,-212,-2 

,-9,-1 
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8520 


DATA 


32,- 


8530 


DATA 


-23, 


8540 


DATA 


-2, 1 


8550 


DATA 


32, - 


8560 


DATA 


0, 76 


8570 


DATA 


0,0, 


8580 


DATA 


0, 0, 


8590 


DATA 


128, 


8600 


DATA 


-17, 


8610 


DATA 


-1, 1 


8620 


DATA 


173, 


8630 


DATA 


-1,5 


8640 


DATA 


12, 2 


8650 


DATA 


141, 


8660 


DATA 


173, 


8670 


DATA 


173, 


8680 


DATA 


-1,7 


8690 


DATA 


141, 


8700 


DATA 


173, 


8710 


DATA 


24, 3 


8720 


DATA 


248, 


8730 


DATA 


133, 


8740 


DATA 


-1, 1 


8750 


DATA 


169, 


8760 


DATA 


46,- 


8770 


DATA 


208, 


8780 


DATA 


-191 


8790 


DATA 


-191 


8800 


DATA 


141, 


8810 


DATA 


-1,9 


8820 


DATA 


140, 


8830 


DATA 


141, 


8840 


DATA 


109, 


8850 


DATA 


109, 


8860 


DATA 


208, 


8870 


DATA 


141, 


8880 


DATA 


141, 


8890 


DATA 


237, 


8900 


DATA 


173, 


8910 


DATA 


170, 


8920 


DATA 


208, 


8930 


DATA 


-20, 


8940 


DATA 


-1, 1 


8950 


DATA 


56, 1 


8960 


DATA 


141. 


8970 


DATA 


-23, 


8980 


DATA 


208, 


8990 


DATA 


-22, 


9000 


DATA 


-1,2 



195, - 
-1 , 32 
74,-1 
187, - 
,-65, 
0,0,0 
0,0, 1 
169, 
-1,13 
6, 13, 
-136, 
6, 173 
4, 173 
-137, 
-136, 
-136, 
6, -10 
-137, 
-137, 

8, 205 
24, 16 
206, 9 
40, -1 
0, 141 
191,- 
246, 1 
,-1,2 

,-1, 1 
-192, 
6,0,0 
-13,- 
-15,- 
-14,- 
-15,- 
235, 5 
-14,- 
-15,- 
-13,- 
-15,- 
96,0, 
39, 24 
-1, 14 

09, -2 
73, -1 
-185, 
-1, 14 
39, 56 
-1, 14 
37, -2 



1, 14 
,-16 
83, - 

2, 76 
0, 96 
,0,0 
,2,4 
, 141 
6, 17 
169, 
-1,4 
,-13 
,-13 
-1,7 
-1,2 
-1,2 
7,-1 
-1,1 
-1,1 
,38, 

5, 20 
6,0, 
94,- 
,-19 
1 ,46 
60,2 
37,- 
73,- 

-1,1 
,0,0 
2, 16 
2, 24 
2,14 
2, 14 

6, 17 
2,17 
2, 56 
2, 14 
2, 23 
0,0, 
, 173 
1,-1 
1,-1 
2,-1 
-2, 1 

1,-1 
, 173 

1,-1 
3,-1 



0,-2 
,-2, 
2, 17 
,-13 
,0,0 
,0,0 
,8, 1 
,"13 
7, 20 



1, 
1, 

6, 



14 
12 

-1 
-1 



6,-1 
33, 9 
33, 3 
, 173 
69,0 
33, 2 
206, 
6,10 
0,0, 
1,14 
2,-1 
,-19 
55, 2 
194, 
192, 
6,23 
, 141 
9,0, 
, 173 

,-1 
,-1 
,"1 
,"1 
173 

,-1 
3,0, 
0,17 
,-14 
83, - 
, 141 
, 237 
73,- 
86, - 
,-14 
83, - 
, 141 



2,-1 
173, 
2,-1 
4,0, 
,0,0 
,0,0 
6,32 
5,-1 
3, 14 
1,-1 
7, 14 
, 233 
, 105 
07,- 
6, 16 
2, 14 
,-13 
133 
05, 1 
202, 
9, 24 
142, 
2,-1 
, 162 
2,-1 
00, 5 

-1, 1 
-1,2 
5, 14 
,-12 
141, 
,"12 
4,-2 
5,-2 
4,-2 
5,-2 
,"14 
4,-2 
141, 
4,-1 

,-1, 
2, 17 
,-18 
,-22 
13,- 
2, 96 

,-1, 
2, 17 
,-18 



, 142 

-184 

85, -2 

76, -89 

,0,0,0 

,0,0,0 

,64 

, 172 

1 ,-136 

35, -1 

1 ,-136 

, 32, 16 

,64 

1 ,56 

, 12, 56 

1 ,-137 

6,-1 

, 206 

62,3 

208 

4,2 

-193 

91,-1 

,3,24 

, 202 

6, 173 

41 

33,0 

2, -191 

,-2 

-14,-2 

,-2 

, 169, 

, 202 

, 233, 1 

, 233, 

,-2 

, 168 

-15, -2 

0,-1 

109 

3,-15 

4, -2 

,-1 

1 , 237 

, 202 

237 

3,-15 

4,-2 
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9010 
9020 
9030 
9040 
9050 
9060 
9070 
9080 
9090 
9100 
91 10 
9120 
9130 
9140 
9150 
9160 
9170 
9180 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



56, 173, 
141 , -18 
-21,-1, 
208, 39, 
-20,-1, 
-1 ,237, 
24, 173, 
141,-18 
-23, -1 , 
173, -14 
-183, -2 
-1,141, 
-1,109, 
173,-13 
-186, -2 
133, 86, 
157, 66, 
-212, -2 



-12, 
5,-2 
141, 
56, 1 
141, 
-21, 
-12, 
5,-2 
141 

, 173 

-186 
-20, 

,96, 
132, 
3, 16 
,32, 



-1,23 
, 173, 
-186, 
73, -1 
-183, 
-1, 14 
-1, 10 
, 173, 
-186, 
109, - 
,-15, 
,-2,2 
-1,14 
109, - 
0,0,0 
84, 16 
9,0, 1 
86, 22 



-20, -1 



7, 

-13, 
"2,9 
4,-1 
2, 1 
1,-1 
9,-2 
-13, 
-2,9 
22,- 

-1, 1 
4, 17 

1, 

21, 

,0, 1 

2,9„ 

57,7 

8,96 



15 
-2 



-1 , 237 
6, 202 
, 237 
73, 
84, 
2,-1 
-1 , 109 
6, 24 
1,141 
09, -23 
3, -12 
-185, -2 
1 , 141 
34, 85 
, 169, 1 1 
2,3, 173 
1 
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- Circles 

Jeffrey S. McArthur 



Every Atari graphics programmer needs to draw circles. This tutorial will 
show you how to draw a circle — and draw one fast — without jumping 
through hoops. There are several drawing utilities here, from an elemen- 
tary BASIC routine which takes 60 seconds to a machine language version 
that finishes in a fraction of a second. 

Program 1 draws circles, but takes more than a minute to draw a 
circle, no matter how big or small it is. 

Reflections 

A circle is symmetrical, so why don't we take advantage of its 
symmetry? If we know the value of one point, we can reflect it 
across the X-axis or across the Y-axis. That is, if we know (X,Y) is a 
point on the circle, then so is (X,-Y). The same is true for (-X,Y) 
and (-X,-Y). So we have to do only a quarter of the work. Circles 
are also symmetrical along the X = Y line. If we know (X, Y) is on 
the circle, then so is (Y,X). Now we have to find only an eighth of 
the points. Program 2 uses that method. 

Unfortunately, even doing only one-eighth of the work, we 
still need more than 10 seconds to draw the circle. Perhaps there is 
a better way. Instead of using sines and cosines, use the equation: 

X*X + Y*Y = R*R 

That isn't very useful, but we can rearrange the equation and get: 
Y = SQRT(R*R-X*X) 

So all we have to do is find Y for X = -R to R. However, since 
the square root function returns only the positive square root, we 
also have to plot the negative square root. Program 3 is an 
example of how to do that. This method is faster than using sines 
or cosines, but it still takes more than 16 seconds. So using 
Program 4, we reflect it, like we did in Program 2. 

Now we have a method that takes only five seconds on a 
large circle and is a lot faster on the smaller ones. If you take a 
close look at how Program 4 draws the circle, you see it draws 
lines of different lengths. This method works fine on a screen, but 
on a plotter the circle has flat spots. 
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A Faster Circle 

The screen is made up of an array of points. Each point is 
addressed by two coordinates (X,Y). However, X and Y are always 
integers. In Atari BASIC you can PLOT 0.5,0.5, but the points are 
rounded to integers. So if you are at one point on the circle and 
are trying to figure where the next point is, you can go in eight 
directions. 

If you divide the circle into quarters, then only three of those 
directions are valid. If you divide the circle into eight parts, you 
can go in only two directions. For example, if you are on the circle 
at (R,0), the next point is either (R-1,0) or (R-1,1). This method is 
called a potential function. Since the screen cannot plot points 
except with integers, there is a small error that is not always equal 
to zero. 

We want to keep the error as small as possible. We also reflect 
it eight ways as before. That takes only three seconds, and we 
never have to draw any long lines. Program 5 uses this method. 

Notice also that you can achieve the entire result using only 
addition and subtraction. Such programs can be easily converted 
to machine language since we don't have to multiply or divide. 
Program 7 is a machine language program to draw a circle. 
Program 6 calls the machine language and takes less than 2/10 
second to draw a circle. 

The machine language is called by a USR function. The 
parameters that are passed to it are, in order: the address of the 
code, the X coordinate of the center of the circle, the Y coordinate 
of the center of the circle, the radius, and the mode of drawing. 
The mode of drawing means 

0: turn point off 
1: turn point on 
2: invert point 

The only problem with the machine language program is that 
it does no checking to see if the circle goes off the screen. And no 
clipping is done. Therefore, if your circle goes off the screen, you 
will write over other memory. 

Program 1. Sines and Cosines 

100 REM CIRCLE DEMONSTRATION 
110 REM PROGRAM #1 
120 REM 
130 REM 

140 REM THIS METHOD TAKES APPROXIMATELY 61 S 
ECONDS 
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4 



200 


DEG 


210 


GRAPHICS 8 


220 


COLOR 1 


230 


SETCOLOR 2,0,0 


240 


A=160 


250 


B = S0 


260 


R = 50 


300 


FOR ALPHA=0 TO 360 


310 


Xl=INT(R*COS (ALPHA) +0.5) 


320 


Y1=INT(R*SIN (ALPHA) +0.5) 


330 


PLOT A+X1,B+Y1 


340 


NEXT ALPHA 



Program 2. Sines and Cosines Reflected 

100 REM CIRCLE DEMONSTRATION 

110 REM PROGRAM #2 

120 REM 

130 REM 

140 REM THIS METHOD TAKES APPROXIMATELY 11 S 

ECONDS 

200 DEG 

210 GRAPHICS S 

220 COLOR 1 

230 SETCOLOR 2,0,0 

240 A=160 

250 B=S0 

260 R=50 

270 PLOT A+R,B 

300 FOR ALPHA=0 TO 45 

310 X 1=INT (R*COS ( ALPHA) +0. 5) 

320 Y1=INT (R*SIN < ALPHA) +0. 5) 

330 PLOT A+X1,B+Y1 

340 PLOT A-X1,B+Y1 

350 PLOT A+X1,B-Yi 

360 PLOT A-X1,B-Y1 

370 PLOT A+Y1,B+X1 

380 PLOT A-Y1,B+X1 

390 PLOT A+Y1,B-X1 

400 PLOT A-Y1,B-X1 

410 NEXT ALPHA 

Program 3. Square Root 

100 REM CIRCLE DEMONSTRATION 

110 REM PROGRAM #3 

120 REM 

130 REM 

140 REM THIS METHOD TAKES APPROXIMATELY 17 S 

ECONDS 

210 GRAPHICS S 
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220 


COLOR 1 






230 


SETCOLOR 2,0,0 






240 


A=160 






250 


B = S0 






260 


R = 50 






270 


X0=-R: Y0=0 






300 


FOR Xl=-R TO R 






310 


Y1=INT<0.5+SQR<R*R-X1*X1> ) 




330 


PLOT A+X0, B+Y0: DRAWTO 


A + X 1 


, B + Yl 


335 


PLOT A+X0, B-Y0: DRAWTO 


A + X 1 


, B-Yl 


336 


X0=X1 : Y0=Y1 






340 


NEXT XI 






Program 4. Square Root Reflected 






100 


REM CIRCLE DEMONSTRATION 




i 10 


REM PROGRAM #4 






120 


REM 






130 


REM 






140 


REM THIS METHOD TAKES 


APPROXIMAT 




CONDS 






210 


GRAPHICS 8 






220 


COLOR 1 






230 


SETCOLOR 2,0,0 






240 


A=160 






250 


B = 80 






260 


R = 50 






270 


X0=-R: Y0=0 






280 


X 1=-R 






290 


Y1=INT(0.5+SQR(R*R-X1*X1> ) 




300 


PLOT A+X0, B+Y0: DRAWTO 


A + X 1 , 


, B + Yl 


310 


PLOT A-X0, B+Y0: DRAWTO 


A-X 1 , 


, B + Yl 


320 


PLOT A+X0, B-Y0: DRAWTO 


A + X 1 , 


, B-Yl 


330 


PLOT A-X0, B-Y0: DRAWTO 


A-X 1 . 


, B-Yl 


340 


PLOT A+Y0, B+X0: DRAWTO 


A + Yl 


, B + Xl 


350 


PLOT A-Y0, B+X0: DRAWTO 


A-Yl 


, B + Xl 


360 


PLOT A+Y0, B-X0: DRAWTO 


A + Y 1 


, B-X 1 


370 


PLOT A-Y0, B-X0: DRAWTO 


A-Yl 


, B-X 1 


380 


X0=X1 : Y0=Y1 






390 


IF -X1>=Y1 THEN Xl=Xl+l:GOTO 290 



SE 



Program 5. Potential 



100 REM CIRCLE DEMONSTRATION 

110 REM PROGRAM #5 

120 REM 

130 REM 

140 REM THIS METHOD TAKES APPROXIMATELY 

CONDS 

210 GRAPHICS 8 



SE 
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220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
400 
410 
420 
430 
440 
450 
460 
470 
500 
510 
520 

530 



COL 

SET 

A=l 

B = 8 

R = 5 

PHI 

Yl = 

X 1 = 

PHI 

PHI 

PLO 

PLO 

PLO 

PLO 

PLO 

PLO 

PLO 

PLO 

PHI 

Yl = 

IF 

1 = X 

IF 



OR 1 

COLOR 2,0. 
60 








R 

Y = P 
XY = 
T A 



T A 

T A 



HI 

PHI 

+ X 1 

-XI 

+ X1 

-XI 

+ Y1 

-Yl 

+ Y1 

-Yl : 

IY 

1 

(PHIXY) <ABS (PHIY) THEN PHI=PHIXY:X 



Yl+Yl+1 
Y-X 1-X1+1 

B + Yl 

B + Yl 

B-Yl 

B-Yl 

B + X 1 

B + Xl 

B-Xl 

B-Xl 



= PH 
Y1 + 
ABS 
1-1 
X1>=Y1 THEN 300 



Program 6. BASIC Call to Machine Language 



100 
110 

120 
130 
140 

210 
220 
230 
240 
250 
260 
27 



REM 

REM 

REM 

REM 

REM 

33 S 

GRAP 

COLO 

SETC 

A=16 

B = 80 

R = 5 

P = 7* 



CIRCLE DEMONSTRATION 
PROGRAM #6 



THIS METHOD TAKES APPROXIMATELY 0.13 

ECONDS 

HICS 8 

R 1 

OLOR 2,0,0 





16*16*16 
300 I=USR ( P, A, B, R , i ) 

Program 7. Machine Language Circle Drawing Subroutine 

10 REM 28000- IS SUBROUTINE 
20 GOSUB 28000 
30 END 

28000 FOR 1=0 TO 758:READ A:POKE 28672+1, A:N 
EXT I 

28004 RESTORE 29500 

28005 FOR 1=1577 TO 1584: READ A: POKE I,A:NEX 
T I 
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28010 


RETURN 


28672 


DATA 


104, 104, 141, 


28678 


DATA 


141,4,6, 104, 


28684 


DATA 


6, 104, 141,6, 


28690 


DATA 


141,9,6, 141 , 


28696 


DATA 


104, 141,8,6, 


28702 


DATA 


6, 104, 104, 14 


28708 


DATA 


201 , 3, 144, 1 , 


28714 


DATA 


0,141,13,6,1 


28720 


DATA 


6, 141, 15,6, 1 


28726 


DATA 


6, 24, 173, 4, 6 


28732 


DATA 


11,6,141, 25, 


28738 


DATA 


5,6, 109', 12,6 


28744 


DATA 


26, 6, 24, 173, 


28750 


DATA 


109, 13,6, 141 


28756 


DATA 


173, 5, 6, 109, 


28762 


DATA 


141 , 30, 6, 56, 


28768 


DATA 


6, 237, 11,6,1 


28774 


DATA 


6, 173, 5, 6, 23 


28780 


DATA 


6, 141 , 28, 6, 5 


28786 


DATA 


4,6, 237, 13,6 


28792 


DATA 


3 1,6, 173,5,6 


28798 


DATA 


14, 6, 14 1, 32, 


28804 


DATA 


17 3,6,6, 109, 


28810 


DATA 


141 , 33, 6, 173 


28816 


DATA 


109, 12,6, 141 


28822 


DATA 


24, 173, 6, 6, 1 


28828 


DATA 


6, 141 , 37, 6, 1 


28834 


DATA 


6, 109, 14,6, 1 


28840 


DATA 


6,56,173,6,6 


28846 


DATA 


11,6, 141 , 35, 


28852 


DATA 


7, 6,237, 12,6 


28858 


DATA 


36,6,56, 173, 


28864 


DATA 


237, 13,6, 141 


28870 


DATA 


173,7, 6,237, 


28876 


DATA 


141 , 40, 6, 173 


28882 


DATA 


14 1,0,6,173, 


28888 


DATA 


14 1, 1,6, 173, 


28894 


DATA 


141,2,6,173, 


28900 


DATA 


14 1 , 3, 6, 32, 1 


28906 


DATA 


173, 27, 6, 141 


28912 


DATA 


173, 28, 6, 141 


28918 


DATA 


32, 106, 114, 1 


28924 


DATA 


141,0,6, 173, 


28930 


DATA 


141, 1,6, 173, 


28936 


DATA 


141,2,6, 173, 


28942 


DATA 


141 , 3, 6, 32, 1 


28948 


DATA 


173, 27, 6, 141 


28954 


DATA 


173, 28, 6,141 



5,6, 104 
141 , 7 

6, 104 
12, 6 
141 , 11 
1 , 10,6 
96, 169 
41,14 
41, 16 

, 109 
6 , 17 3 
, 141 
4,6 
,29,6 
14, 6 
173, 4 
41 , 27 

7, 12 
6, 173 
, 141 

, 141 
6, 24 
11,6 
, 7, 6 
,34,6 
09, 13 
73, 7 
41 , 38 
, 237 
6 , 17 3 
,141 
6, 6 
, 39, 6 
14, 6 
, 25, 6 
26, 6 
37,6 

38, 6 
06, 114 
,0,6 
,1,6 
73,25, 6 
26, 6 

39, 6 

40, 6 
06, 1 14 
,0,6 
,1,6 
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28960 


DATA 


32, 106, 114, 173, 29, 6 


28966 


DATA 


141,0,6, 173, 30, 6 


28972 


DATA 


141, 1,6, 173,33,6 


28978 


DATA 


141,2,6, 173, 34, 6 


28984 


DATA 


141,3, 6, 32, 106, 114 


28990 


DATA 


173, 31 , 6, 141,0,6 


28996 


DATA 


173, 32, 6,141,1,6 


29002 


DATA 


32, 106, 114, 173, 29, 6 


29008 


DATA 


141,0,6, 173, 30, 6 


29014 


DATA 


141 , 1,6, 173, 35, 6 


29020 


DATA 


141,2,6, 173, 36, 6 


29026 


DATA 


141,3, 6, 32, 106, 1 14 


29032 


DATA 


173, 31,6,141,0,6 


29038 


DATA 


173, 32, 6,141,1,6 


29044 


DATA 


32, 106, 114, 173, 14,6 


29050 


DATA 


205, 12, 6, 240, 3, 144 


29056 


DATA 


10, 96, 173, 13, 6, 205 


29062 


DATA 


11,6, 144, 1 ,96, 173 


29068 


DATA 


11,6, 133,4, 173, 12 


29074 


DATA 


6, 133, 5, 173, 13, 6 


29080 


DATA 


133, 205, 173, 14,6, 133 


29086 


DATA 


206, 6, 4, 38,5,6 


29092 


DATA 


205, 38, 206,56, 165, 205 


29098 


DATA 


109, 15,6, 141 , 17,6 


29104 


DATA 


165, 206, 109, 16,6, 141 


291 10 


DATA 


18, 6, 24, 173, 17,6 


291 16 


DATA 


229, 4, 141 , 19,6, 173 


29122 


DATA 


18, 6, 229, 5, 141 , 20 


29128 


DATA 


6, 173, 18, 6, 16, 27 


29134 


DATA 


73, 255, 141, 22, 6, 173 


29140 


DATA 


17,6, 73, 255, 24, 105 


29146 


DATA 


1 , 141 ,21,6, 173, 22 


29152 


DATA 


6, 105, 0, 141, 22, 6 


29158 


DATA 


24, 144, 9, 141 , 22, 6 


29164 


DATA 


173, 17,6, 141,21,6 


29170 


DATA 


173, 20, 6, 16, 27, 73 


29176 


DATA 


255, 141, 24, 6, 173, 19 


29182 


DATA 


6, 73, 255, 24, 105, 1 


29188 


DATA 


141 , 23,6, 173, 24, 6 


29194 


DATA 


105, 0, 141 , 24, 6, 24 


29200 


DATA 


144, 9, 141 , 24, 6, 173 


29206 


DATA 


19,6, 141 , 23, 6, 173 


29212 


DATA 


17,6, 141 , 15, 6, 173 


29218 


DATA 


18,6, 141, 16, 6, 24 


29224 


DATA 


173, 13,6, 105, 1 , 141 


29230 


DATA 


13,6, 173, 14,6, 105 


29236 


DATA 


0, 141, 14,6, 173, 22 


29242 


DATA 


6, 205, 24, 6, 144, 39 


29248 


DATA 


208, 8, 173, 21, 6, 205 
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29254 DATA 23,6,144,29,173,19 

29260 DATA 6,141,15,6,173,20 

29266 DATA 6,141,16,6,56,173 

29272 DATA 11,6,233,1,141,11 

29278 DATA 6,173,12,6,233,0 

29284 DATA 141,12,6,76,55,112 

29290 DATA 173,2,6,133,205,169 

29296 DATA 0,133,206,6,205,38 

29302 DATA 206,6,205,38,206,6 

29308 DATA 205,38,206,165,205,133 

29314 DATA 4,165,206,133,5,6 

29320 DATA 205,38,206,6,205,38 

29326 DATA 206,24,165,205,101,4 

29332 DATA 133,205,165,206,101,5 

29338 DATA 133,206,173,0,6,133 

29344 DATA 4,173,1,6,133,5 

29350 DATA 70,5,102,4,70,5 

29356 DATA 102,4,70,5,102,4 

29362 DATA 24,165,205,101,4,133 

29368 DATA 205,165,206,101,5,133 

29374 DATA 206,24,165,205,101,88 

29380 DATA 133,205,165,206,101,89 

29386 DATA 133,206,173,0,6,41 

29392 DATA 7,170,160,0,173,10 

29398 DATA 6,208,10,189,41,6 

29404 DATA 73,255,49,205,145,205 

29410 DATA 96,201,1,208,8,189 

29416 DATA 41,6,17,205,145,205 

29422 DATA 96,189,41,6,81,205 

29428 DATA 145,205,96,0,0,0 

29500 DATA 128,64,32,16,8,4,2,1 
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- Joystick Cursor 



Control 

I Jeff Brenner 



This article will show you how to gain even more control of the Atari 
editing system. By using a joystick rather than the control-arrow keys, 
you can have instant, accurate cursor control. 

This BASIC program contains a small machine language routine 
which will be stored in memory and executed during vertical 
blank. The vertical blank is the period of time between the 
drawing of the last line of the television screen and the movement 
of the electron beam to the top of the screen to begin drawing the 
first line. During this period, the machine language routine will be 
at work. Since the vertical blank occurs 60 times per second, the 
routine will be executed 60 times per second. The routine is 
executed so fast that there is no noticeable delay in computer 
operation. 

The function of the routine is to change the joystick values 
into the control-arrow key codes and then store this new value in 
the register which the Atari uses to store keyboard data (764). Try 
this: 

POKE 764,0 

Because zero is the keyboard code (not ASCII, but an internal 
code) for the L character, the letter L will be displayed on the 
screen. The keyboard codes for the four direction keys and the 
corresponding joystick values follow: 

CONTROL-Up = 142 Joystick Up = 14 

CONTROL-Down = 143 Joystick Down = 13 

CONTROL-Left= 134 Joystick Left = 11 

CONTROL-Right= 135 Joystick Right = 7 

Basically, here is how the program will work. Every 1760th of 
a second, the routine will check the joystick port. If the joystick 
has been moved up, down, left, or right, then a direction code, 
corresponding to the position of the joystick, is stored in location 
764. The Atari will then automatically display its character for that 
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code. In addition, a counter will be used to determine when a 
direction should be repeated. If the joystick is held to one position 
for several seconds, that direction will repeat just the way it 
would on a keyboard. If the joystick trigger is held down as well, 
the direction will repeat extra fast. Thus the joystick merely 
replaces the control and direction keys, and is best suited for use 
as a programming aid. 



Joystick Cursor Control 



5 REM JOYSTICK/CURSOR CONTROL 

10 DATA 104,162,6,160,147,169,7,32,92,228,16 

9,0, 133, 204, 133, 205, 133, 20 6, 96, 173, 120, 2, 

201 , 15, 240, 24 
20 DATA 197,205,240,48,133,205,201,14,240,23 

,201, 13, 240, 23, 201, 11, 240, 23, 201, 7, 240, 23 

, 208, 6, 169, 
30 DATA 133,204,133,205,76,98,228,169,142,20 

8, 10, 169, 143, 208, 6, 169, 134, 208, 2, 169, 135, 

141 , 252, 2, 208, 234 
40 DATA 166,204,240,9,166,206,240,13,198,206 

,76, 98, 228, 169, 40, 133, 206, 133, 204, 208, 213 

, 162,5, 134, 206, 174 
50 DATA 132,2,208,180,162,1,134,206,208,174, 

0,-1 
60 I=0:C=0:RESTORE 10 
70 READ N:C=C+N:1F N=-l THEN 90 
80 POKE 1664+1, N: 1=1+1 : GOTO 70 
90 IF C=15702 THEN A=USR ( 1 664 ): STOP 
100 PRINT "THERE IS AN ERROR IN THE DATA" 
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Atari Verify 



Michael J. Barkan 



Using less than IK of memory, this utility program for cassette can save 
you a lot of time and frustration. 

I recently made a CSAVE and a LIST "C:" (after about five hours of 
typing) and neither of them saved the program. This sort of thing 
is more than distressing. My solution is neither elaborate nor 
entirely original, but it works. 

Ed Stewart's article in COMPUTE !'s Second Book of Atari on 
backing up machine language tapes served as the inspiration for 
my program. Stewart's program reads a block of data from the 
cassette tape, puts it in a string, reads another block, adds it to the 
string, and so on. The string eventually contains the entire 
program. Of course, the string needs to be as big as the comput- 
er's memory, so I couldn't use the method directly. 

I know absolutely nothing about machine language except 
that when I try to change something, the system crashes — so I 
didn't change anything. The trick was to fool the machine 
language program. Locations 203 and 204 (decimal) contain the 
starting address of string A$. All I had to do (sounds easy, now) 
was reset these locations so that the machine language subroutine 
would "forget" that it had already put something into A$. This 
means that A$ needs to hold a maximum of only 128 bytes, the 
size of one cassette data block. Therefore, this program, once 
running, takes up less than IK of memory; A$ just keeps reusing 
the same 128 bytes. 

To use this utility, type it in and save it with LIST "C:". Load 
the program you want to save, or start typing in a new program. 
Make sure your program starts at line 10 or higher. CSAVE it. Now 
ENTER "C:" this utility and run it. It will ask you to start loading 
the tape with your new program. If the tape runs all the way 
through and ends with an end-of-file flag, you'll get a "GOOD 
TAPE" message. If the tape is not readable, you'll get an error 
message (my favorite is 143), but your program is still in the computer, 
so you can try again . Delete lines through 9 first, though. 

If your tape is of the ENTER "C:" variety, just change the 255 
in line 4 to 0, and the program will verify it, too. 
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That's all there is to it. Not quite like having a disk drive, but 
at least now tape storage will be far less likely to cause you 
distress. 



Atari Verify 



REM 
{9 
CLR 
(A* 
EM 
FOR 
TRA 
AP 
? C 

AN 
CLO 

TO 
S 
FOR 

LO 
WIL 
POK 
KE 

R 
IF 
; "G 

FL 

*? II 

T R 
DAT 
0, 4 
61, 



ATARI 
SPACES 

: DIM 
) /256) 
POKE S 

1 = 153 
P 7: RE 
FOR EN 
HR* ( 12 
Y KEY 
SE #1 : 

FOR 

1 = 1 T 
OP THR 
L EVER 
E 203, 
204, IN 
ESET P 
PEEK ( 1 
OOD TA 
AG 

ERROR 
EADABL 
A 104, 
, 129, 
240, 3 



CASSETTE VERIFY UTILITY 
>BY MICHAEL J. BARKAN 

A* < 128) : POKE 203 , ADR ( A* ) - < I NT < ADR 
*256) :POKE 204, INT(ADR(A$)/256) : R 
TART LOCATION OF A* 

6 TO 1565:READ A:POKE I,A:NEXT I: 
M POKE IN M.L. ROUTINE AND SET TR 
D OF FILE FLAG 

5); "INSERT TAPE TO TEST":? "PRESS 
TO BEGIN" 
OPEN #1 , 4, 255, "C: " : REM CHANGE 255 

TAPES WITH LONG INTER-RECORD GAP 

O 100000:GET #1 ,B: X=USR ( 1536) : REM 
OUGH THIS MORE TIMES THAN ANYONE 

NEED 
ADR(A*)-<INT(ADR(A*)/256)*256):P0 
T <ADR (A*) /256) : NEXT I : REM EUREKA! 
OINTER TO START OF A* 

95)=136 THEN CLOSE #ls? CHR*(125) 
PE":END :REM LOOK FOR END OF FILE 



- "; PEEK ( 195) : END : REM TAPE IS NO 
_E 

174, 138,2, 134, 61, 160, 0, 162, 0, 185, 
?03, 200,230, 203, 208, 2, 230, 204, 196, 

76, 10, 6, 96 
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Automate Your Atari 

Joseph J. Wrobel 



Make your programs RUN automatically or PRINT a personalized 
message when your disk drive boots up. This short program allows you to 
create an AUTORUN .SYS file that will execute the commands you enter. 
It's easy and simple to use. 

The Atari Disk Operating System (DOS) supports the use of a file 
named AUTORUN. SYS that has a very special characteristic. At 
system start-up, the DOS loads and runs this file automatically if 
it exists on the mounted diskette. This allows you to arrange for 
your Atari to come up smart. 

The Potential 

The AUTORUN. SYS file could contain a machine language 
program that loads and runs. It could also contain just a short 
program to do some routine operations like setting the screen 
margins or color before passing control to BASIC. However, the 
major use I've seen for AUTORUN. SYS is to direct the system to 
load and run a BASIC program. Not only does this type of opera- 
tion save you some time and effort, but it also allows an unskilled 
operator, like a student, to turn on the machine and interact with 
an application program without getting into the details of LOAD 
or RUN instructions. 

The Problem 

So far, so good. Why doesn't everyone use the AUTORUN. SYS 
file? Apparently the major obstacle to its more widespread use is 
the fact that it is a machine language routine. Thus, it requires 
knowledge of 6502 machine language and, for complex opera- 
tions, some knowledge of the intricacies of the Atari Operating 
System to create a functional AUTORUN. SYS file. Unless 
someone came up with a program to do it for you. 

"Automate" (Program 1) is just such a program. If you key in 
this program correctly and run it, Automate will help you create 
your own personal AUTORUN. SYS file, and it won't hurt a bit. 
The program starts by asking you to input the series of commands 
you wish to be executed at start-up. You enter the commands 
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exactly as you would if the machine came up in its normal ready 
state. The only limit on the number of commands is that the total 
number of characters entered may not exceed 196 (including the 
Atari end-of-line character added each time you hit RETURN). 
The program keeps track of the number of characters entered and 
will prevent you from exceeding this limit. After you've entered 
the final command in the sequence, the program will create an 
AUTORUN.SYS file on the mounted diskette. Note that any 
previous AUTORUN.SYS file will be overwritten by this opera- 
tion. 

The next time you boot up from the diskette bearing the 
AUTORUN.SYS file, the AUTORUN.SYS program will be run. 
This will cause the commands you entered to be executed in the 
order they were entered (although they will not be displayed), 
then control will be returned to the system. The commands, of 
course, must be compatible with the cartridge in use (BASIC, 
Assembler Editor, etc.) or an error will result. If at any time you 
wish to boot up from a diskette and circumvent the 
AUTORUN.SYS file, just hold the OPTION key down until 
system initialization is complete. The AUTORUN.SYS file created 
by Automate checks that key and, if it finds it depressed, the 
command list will not be executed. 

A BASIC Example 

To demonstrate the use of the program, a single command BASIC 
example will be presented. Let us suppose there exists a BASIC 
program entitled BEGIN which you would like to run automati- 
cally at start-up. Using Automate, you enter (as Command #) the 
statement: 

GR.0:?"Autoboot in progress.":RUN"D:BEGIN" 

then press RETURN. Assuming you entered the command 
correctly, you respond to the question: 

Is that correct (Y/N)? 

by pressing Y When the program asks if there are: 

More commands (Y/N)? 

respond by pressing N. The program then creates the 
AUTORUN.SYS file and displays READY when it's done. If you 
now turn off your computer and switch it on again, you will find 
that it "comes up" running program BEGIN. How simple can you 
get? 
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Description of Operation 

This section is for those who are not satisfied with just running 
the program, but are also interested in knowing how it works. 
Let's first take another look at Program 1. Automate consists of 
three major sections. The first section (lines 50 through 130) are for 
documentation and initialization. The program employs two key 
numeric variables: I, which counts the number of commands 
entered, and L, which counts the total number of characters in the 
command list. The second program section (lines 140 through 350) 
INPUTs the commands one at a time. As each command is 
entered, the program allows for error correction, checks 
command list size, packs the command into B$ and tacks on an 
ATARI end-of-line (EOL) character, namely CHR$(155). The third 
section of the program (lines 360 through 600) actually creates the 
AUTORUN.SYS file. 

Before this third section is discussed, I direct your attention 
to Program 2. This is the assembly listing for the core of the 
AUTORUN.SYS program. What this machine language program 
does, in a nutshell, is to temporarily take over the task of 
supplying screen editor data by substituting a new device handler 
table and "get character" routine for the default ones provided by 
the operating system. At system start-up while the 
AUTORUN.SYS program is active, it intercepts all the keyboard 
entry requests and feeds out, one character at a time, the 
commands which you have entered. When it has sent out the last 
character of the last command in the list, it re-installs the default 
screen editor handler table, and the system takes over from there. 

Returning to the section of the BASIC program which creates 
the AUTORUN.SYS file, you will find that it consists primarily of 
three loops. Loop one (lines 490 through 510) PUTs the core 
program and its associated 6-byte header into the file as READ 
from the DATA statements in lines 430 through 480. 

Note that in line 500 of Automate, two numbers are changed 
from the values shown in the DATA statements before putting 
them into the AUTORUN. SYS file. The first is a byte in the 
AUTORUN.SYS file header which gives the end of the program 
when loaded in memory. This is the sum of the core program 
length and the number of bytes in the command list. Automate 
also alters the value of the immediate argument of the CPY 
instruction in line 370 of Program 2. This byte is set equal to the 
total number of characters (including EOLs) in the command list. 



169 



Utilities 



Loop two (lines 530 through 550) PUTs in the command list which 
resides in B$. Finally, loop three (lines 580 through 590) adds a 
12-byte postscript to the file, which provides the system with the 
initialization and run locations for the routine. 

The BASIC program here provides an easy way to create a 
useful AUTORUN.SYS file. There are dozens of ways this file can 
be used. It doesn't necessarily have to be a serious application. 
For example, it's sort of fun just to start up my machine, listen to it 
go through its disk machinations, then see it automatically 
display the personalized greeting: 

READY WHEN YOU ARE, J.W.! 



Program 1 . Automate 



50 I=0:L=0: MAX=196 

60 DIM A* (MAX) , B* (MAX) ,R* ( 1 ) 

70 OPEN #1 , 4, 0, "E: " : OPEN #2,4,0, "K:" 

80 7 "This program helps you to create" 

90 ? " a personalized AUTORUN.SYS file" 

100 ? " which, -following the disk boot" 

110 ? "C3 SPACES>process, automatically i ssu 

es" 
120 ? "C4 SPACESJa set of commands that REtT" 
130 ? "C5 SPACESJspecif y. " 
140 1=1+1 

150 ? :? "Please enter command #";I 
160 ? : INPUT #1 ; A* 
170 POKE 766,1:? :? "Command #";I;" 

E 766,0 
180 ? :? "Is that correct (Y/N)? " ; 

:? :R*=CHR*(X) 
190 IF R*="Y" OR R*="y" THEN 
200 IF R*="N" OR R*="n" THEN 
210 GOTO 170 
220 X=L+LEN(A*) +1-MAX 
230 IF X<=0 THEN 260 
240 ? :? "Command # " ; I ; " is ' 

s) " 
250 ? "too 1 ong. ": 1=1-1 : GOTO 270 
260 B$(L+l)=A*:L=LEN(B$):Bt(L+l) =CHR* (155) : L 

= L+1 
270 ? :? "Current command list:" 
280 POKE 766,1:? :? B*:POKE 766,0 
290 IF L>=MAX-1 THEN ? "Command list is full 

. " : ? : GOTO 370 
300 ? "Command list can hold ";MAX-L-1; " nor 



" ; A*:POK 
GET #2,X 



220 
150 



- X - 



character ( 
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Program 2. Assembly Listing 

D01F 0100 CONSDL = $D01F 

0320 0110 DEVTAB = *0320 

E400 0120 OLDDHT = $E400 

0130 ; 

0000 0140 *= $0600 

0600 AD1FD0 0150 INIT LDA CONSOL 

; Load the console switch register 



171 




Utilities 



0603 


2904 




; and 


0605 


F00A 




;i* 


0607 


A912 




;Oth 


0609 


8D21 




;to 


060C 


A906 


5 


in t 


060E 


8D22 


5 


devi 


061 1 


60 




; ret 


0612 


FBF3 




; Thi 


0614 


33F6 




5 scr 


0616 


2106 




; vec 


0618 


A3F6 




; vec 


061 A 


33F6 


3 


i val u 


061C 


3CF6 


3 


: GET 


061E 


4C 


3 


poi n 


061F 


E4F3 


3 


i rout 


0621 


00 




; cha 


0622 


EE21 




; I nc 


0625 


AC21 




;cou 


0628 


C000 




; the 


062A 


D00A 


? 


If n 


062C 


A900 


J 


Othe 


062E 


SD21 


; 


de-fa 


0631 


A9E4 




; tab 



0160 AND #*04 

check For the OPTION key. 

0170 BEQ RUN 

it's pressed, branch to the RTS. 

0180 LDA #NEWDHT&*00FF 

erwise, install the vector 
03 0190 STA DEVTAB+1 

the new device handler table 

0200 LDA #NEWDHT/256 

he appropriate place in the 
03 0210 STA DEVTAB+2 

ce tab 1 e and 

0220 RUN RTS 
urn . 

0230 ; 

0240 NEWDHT .WORD *F3FB 
s is the replacement 

0250 .WORD *F633 

een editor handler 

0260 .WORD GET-1 

tor table. All the 

0270 .WORD *F6A3 

tors have their default 

0280 .WORD SF633 

es except for the 

0290 . WORD *F63C 

routine, which 

0300 .BYTE *4C 

ts to the replacement 

0310 .WORD $F3E4 

i ne bel ow . 

0320 ; 

0330 COUNTR .BYTE 
racter counter 

0340 ; 
06 0350 SET INC COUNTR 
rement the character 
06 0360 LDY COUNTR 

n t e r . Compare it with 

0370 CPY ttENDLST-BESLST 

command list length. 

03S0 BNE CONT 

ot equal, branch to CONT. 

0390 LDA #OLDDHT?<$00FF 

rwise, reinstate the 
03 0400 STA DEVTAB+1 

ult screen editor handler 

0410 LDA ttOLDDHT/256 

le vector at the proper 
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0633 SD2203 0420 STA DEVTAB+2 

; s p o t in the device table. 
0636 B93B06 0430 CONT LDA BEGLST- 1 „ Y 

;Fetch the next character 
0639 A00 1 0440 LDY #1 

; f r o m the command list and 
063B 60 0450 RTS 

; return. 

4 60 ; 

0470 BESLST 

04B0 ;The command list goes here 



063C 



0490 ENDLST .END 
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The Wedge: 

Adding Commands 
To Atari BASIC 



I Charles Brannon 



You can customize your Atari BASIC by adding new commands to the 
language itself. To demonstrate how to do it, the program below adds five 
DOS commands to BASIC — including a directory command. There are 
two versions of the same -program. Program 1 is a BASIC loader. Type it in 
normally, and it creates a machine language program for you from the 
information in the DATA statements. Program 2 is an assembly listing of 
the same routine. It shows how the machine language works and is useful 
to programmers who know machine language or want to learn more about 
it. It's not necessary, however, to understand Program 2 in order to make 
good use of Program 1 . 

A letter published some months ago in COMPUTE !'s "Ask The 
Readers" column regretted the need for "this POKE or that 
POKE" to accomplish various tasks. The required solution is an 
"expanded command set." An enticing prospect, adding 
commands to a language, and a seemingly impossible one, too. 

Atari BASIC, like most microcomputer BASICs, is burned 
into nonvolatile ROM memory. The machine language routines to 
list, save, edit, and run your program cannot be altered or patched 
in any way (However, on a 48K Atari, you can copy the BASIC 
cartridge to disk as a binary file, modify it with a machine 
language monitor, and load it into the top of memory where it will 
act almost as a ROM cartridge.) 

The most common (and easiest to implement) extension of a 
language is the addition of immediate mode commands. These 
direct commands, which are not usually executed in a program, 
but from the keyboard, include RUN, SAVE, LIST, NEW, DOS, 
etc. Thanks to Atari's modular Operating System (OS), we can 
easily add this type of command. 

An Overview of Atari s Operating System 

To understand how the wedge works, we'll have to delve into the 
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mysterious 10K ROM. If you just want to use the program and 
aren't concerned about the technical details, feel free to skip 
ahead. The operating system (OS) of a computer is responsible for 
all input and output to and from disk, cassette, printer, and 
keyboard. It can also perform such chores as memory manage- 
ment and screen display. On many microcomputers, the OS does 
not exist as a separate entity, but is incorporated into the BASIC 
interpreter. 

The Atari, on the other hand, is the first microcomputer with 
a general-purpose, plug-in operating system. This goes hand in 
hand with the use of program and game cartridges. All programs 
running on an Atari use a common set of routines, from floating 
point arithmetic to high-resolution graphics routines such as 
PLOT, DRAWTO, and FILL. 

A Mini-Language 

So, instead of BASIC providing a marginal operating system 
(which on many machines is a maze of machine language calls, 
requiring incompatible register setup and initialization), we have 
a BASIC cartridge which uses universal OS routines. A good OS 
simulates a mini-language. It provides documented, unchanging 
(between various revisions), unified subroutines with full param- 
eter passing and error-checking. 

Furthermore, a good OS is extensible. All the major routines 
and subroutines are accessed indirectly, through pointers. That is 
why the Atari is so flexible. If you want to change the personality 
of your computer, just change one of the vectors of a given routine 
to point to your machine language routine. Your program can 
then pass on control to the default program. 

A Flexible Computer 

This indirection is visible throughout the Atari. At the low end is 
color indirection, where you can change the color of anything 
drawn to another color merely by changing one color register. The 
default character set pointer can be changed to point to a user- 
designed character set. The system interrupt routines and display 
list interrupts are all fully accessible via a table of pointers. The 
BREAK key can be masked; the keyboard scan routine can be 
modified or by-passed; exotic peripherals can be serviced. And all 
input/output devices are user-definable, from the keyboard to the 
disk drive. 

A notable peculiarity of the Atari is that not just the disk 
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drive or printer, but also the TV screen and keyboard, are consid- 
ered peripherals. You don't print a character to the screen on the 
Atari; you send a character or buffer to the Editor device. 

Chain of Command 

Through the hierarchy of a subset of the OS, the CIO (Central 
Input/Output), BASIC politely requests a line of input from screen 
and keyboard. After BASIC makes this request, control is passed 
to CIO, wnich calls the Editor. The Editor lets the user enter a line 
of text (which can be up to three screen lines long). The user can 
use cursor controls to edit the line or to move the cursor anywhere 
on the screen to edit another line. 

When RETURN is pressed, the line the cursor is on is placed 
into a buffer (block of memory). Next, CIO gives this information 
to the calling routine via another buffer. The CIO is designed to be 
easy to use from machine language. If you think it sounds compli- 
cated, imagine performing all these tasks without an operating 
system. 

Driving a Wedge 

We don't have to modify BASIC at all. We just "wedge" our way 
into the Editor device E:. As intimated, even the "system" devices 
such as E: or D: (the disk driver) can be replaced. Usually, 
however, you don't want to replace a vectored routine; you just 
want to insert an additional task. In this case, you point the vector 
to your routine, which performs the little extra task and then calls 
the main routine. This by-pass explains the term wedge. 

The Handler Table contains the names of all the devices. If 
you wanted to, you could change the name of the cassette device 
(C:) to another character, such as T: (for tape), by finding the C in 
the table and changing it to a T Along with each name, the 
Handler Table includes an address that points to another table of 
addresses that point to all the functions of that particular device. 
This is multilevel indirection. There is even a vector that points to 
a list of vectors! 

We want to modify the Editor, so we change the first vector to 
point to our list of vectors. All we really need to do is change one 
of the vectors in the Editor's list of vectors, the "Get Character" 
address. Since this list is in ROM, at $E400, we need to copy this 
16-byte table to RAM, modify it, and repoint the Handler Table to 
our RAM version of the Editor Handler Table. 
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Wedging into a Vector 
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A Monitor Monarchy 

Now that we've got the operating system calling our routine 
instead of the Editor in ROM, we've got total control of almost all 
console input/output. The Get Character routine, instead of calling 
E:, asks us for an ASCII character, presumably from the screen 
and keyboard. We comply by calling the default routine in ROM. 

This seems rather roundabout, doesn't it? But we reserve the 
right to monitor all characters returned to the operating system, 
and hence, BASIC. We get to examine every line of input before 
that line is returned to BASIC, where any strange new commands 
would be scorned with an error message. 

So, we just catch the carriage return code and leisurely 
examine the input buffer, located at $0580. All we have to do is 
compare it against a table of commands, and, if we find a match, 
execute the command. If not, we just return the line to CIO (and 
CIO gives it back to BASIC) on the assumption that it's either a 
blank line, a BASIC command, or a syntax error. Sounds simple, 
but such a "parsing" routine is quite a headache to code and 
understand. 
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A REMarkable Solution 



After we've intercepted and executed the line, how do we prevent 
a syntax error when we return the line to BASIC? (And since 
we've "cut in," we have to follow protocol and return something.) 
One solution would be to erase the buffer by filling it with spaces. 
An easier trick would be to change the first character of the line to 
a period; for example, SCRATCH D:TEMP would become 
.CRATCH D:TEMP Since BASIC interprets a leading period as an 
abbreviation for REM, BASIC conveniently ignores the command 
and returns READY (which it wouldn't if we merely blanked out 
the line). 

The parser routine makes it easy for you to add commands. 
Just place the name of each command, followed by a zero, and the 
address where you want control to be transferred after the 
command is recognized, in COMTBL (COMmand TaBLe, see 
Program 2). The length of the line is found in LENGTH, and the 
second character after the command is returned in PARMS (since 
this is where any parameters would be). 



command xxx,yyy,zzz 

f t 

PARMS LENGTH 



Note that the length is one character past the end of the string, 
assuming you number from zero. Your command processor can 
find the command string in LBUFF ($0580) . 

Theoretically, this technique can be used to add commands to 
any language environment. You only have to find a way to make 
the language processor ignore commands when you return the 
line (such as blanking it out). Of course, the commands them- 
selves are usually language-specific. 

Copious Commands 

Now the way is open to add a plethora of BASIC utility 
commands. Of course, these will have to be written in machine 
language and interfaced with the Wedge. I've included the resi- 
dent DOS commands LOCK, UNLOCK, RENAME, and 
SCRATCH, as well as DIR to print the directory. 

You can study the assembly listing (Program 2). If you have 
an assembler, try typing it in and modifying it. It contains a 
wealth of techniques and information, such as pattern matching, 
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indirect subroutine calls, making a routine "RESET-proof," using 
CIO for input/output from machine language, long branching, 
modular programming, calling BASIC'S ERROR routine, even 
pressing SYSTEM RESET from within a program. 

Using the Wedge 

A machine language program can be hard to enter into the Atari 
without an assembler. Program 1 will write the machine language 
to disk in the form of an AUTORUN. SYS file. Save this program 
so you can write copies to any disk. When you boot this disk the 
AUTORUN file will automatically load and initialize the Wedge. 
You can use the Wedge's console DOS directly, without waiting for 
the disk utility package (DUPSYS) to load in, and without losing 
any programs in memory. 

Commands provided are DIR (lists the directory of drive 
one), LOCK, UNLOCK, SCRATCH (delete), and RENAME. 
Remember to include the D: (or D2: for drive two, if you have one) 
in the filename with all the commands except DIR. With 
RENAME, use the convention RENAME D: oldname, newname. 

The Wedge is "persistent"; in other words, it reinitializes 
itself when you press SYSTEM RESET, so it's kind of hard to get 
rid of it. An additional command, KILL, removes the Wedge. You 
can bring back the Wedge with PRINT USR (7936). 

These commands are just a start. Many others are possible: 
RENUMBER, FIND, AUTO line number, UPDATE (removes 
unused variables from the variable name table), and more. 

Program 1. BASIC Wedgemaker 

100 REM WEDGE BASIC LOADER 

110 GRAPHICS 0:7 "Insert a DOS 2.0S diskette 

120 ? "with DOS. SYS in drive 1." 

130 ? :? "Press EQEEPGH when you have done th 

is." 
140 IF PEEK (764) <:; 12 THEN 140 
150 POKE 764,255 
160 ? :? "Now writing the Wedge AUTORUN. SYS 

file" 
170 TRAP 190 
180 OPEN #1 , 8, 0, "D: AUTORUN. SYS" : TRAP 40000: G 

OTO 200 
190 CLOSE #1:7 s? "Can't open AUTORUN. SYS fo 

r write. " : END 
200 PUT #1,255:PUT #1,255:REM *FFFF HEADER 
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210 
220 
230 

240 
250 
260 
270 



280 C 
290 I 
c 
300 E 
310 ? 

9 
320 R 
330 R 
340 R 
350 R 
360 R 
370 R 
7936 
7942 
7948 
7954 
7960 
7966 
7972 
7978 
7984 
7990 
7996 
8002 
8008 
8014 
8020 
8026 
8032 
8038 
8044 
8050 
8056 
8062 
8068 
8074 
8080 
8086 
8092 
8098 



UT ttl 
UT #1 
OR 1 = 
UTORU 
EAD A 
KSUM = 
EXT I 
F CKS 
i n DA 
LOSE 
F NO 
cess-f 
ND 
: ? " 
disk 
EM 

EM Fo 
EM eq 
EM Mu 
EM in 
EM 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



,0:PUT #1,31:REM *1F00 START 

,74:PUT #1,33: REM $214ft END 

7936 TO 8522+6:REM INCLUDE 6-BYTE 

N 

:TRAP 310: PUT #1, A -.TRAP 40000 

CKSUM+A 

UM<>60435 THEN ? " CBELL3Bad number 

TA statements. ": ERR=1 

#1 

T ERR THEN ? :? "DATA ok, write su 

ul." 

Error-" ; PEEK ( 195) ; " when attemptin 
wri te. " : CLOSE #1:END 

llowing is the decimal 
uivalent of Wedge 1.0 
st be typed in perfectly 
order to -function. 



104 

165 

36, 

13, 

31, 

169 

32, 

96, 

169 

0, 1 

141 

66, 

228 

55 , 

105 

101 

3, 

200 

200 

200 

162 

165 

245 

169 

173 

186 

0, 1 



, 165 

,13, 

133, 

32,4 

169, 

,33, 

64, 2 

169, 

,31, 

41,7 

,72, 

3,16 

, 152 

33 , 6 

, 155 
01,6 
, 192 
, 169 
, 169 
,0,1 
,31, 
, 169 
, 31 , 

, ^ , •*■ 
, 31 , 
41, 1 
, 203 



, 12, 
141, 
12, 1 
3,31 
75, 1 
141, 
1 , 32 
80, 1 
141, 
3,3, 
3, 16 
2,0, 
,48, 
5,11 
87, 1 
, 160 
9, 24 
,34, 
, 165 
,31 , 
89, 
232, 
, 184 
141, 
28, 1 
173, 
87, 3 
,96, 



141 , 
38,3 
69, 3 
,32, 
41,2 
232, 

, 11, 
41,6 
69, 3 
169, 
9, 11 
32, 8 
1 , 96 
6, 97 
01 , 1 
,0,1 
0,7, 
208, 
, 153 
153, 
, 228 
224, 
, 141 
170, 
05, 1 
5, 22 
1 , 16 
251 , 



37, 31 
1 , 169 

1, 133 
92 
31 , 2 

2, 96 
31 
8, 3 
, 169 
12 

, 141 
6 

,76 
, H4 
00, 103 
85, 26 
200 

243, 96 
,26, 3 
26, 3 
, 157 
16, 208 
, 169, 31 
31 , 24 
,141 

8, 105 

9, 
243, 51 
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8104 


DATA 


246, 184, 31 , 163, 246, 51 


8110 


DATA 


246, 60, 246, 76, 228, 243 


81 16 


DATA 


56, 1,1, 125, 32, 32 


8122 


DATA 


62, 246, 8, 201, 155, 240 


8128 


DATA 


4, 230, 203, 40, 96, 140 


8134 


DATA 


181,31, 142, 182, 31, 165 


8140 


DATA 


203, 240, 86, 169, 51, 133 


8146 


DATA 


205, 169, 32, 133, 206, 160 


8152 


DATA 


0, 177, 205, 217, 128, 5 


8158 


DATA 


208, 12, 200, 177, 205, 240 


8164 


DATA 


40, 196, 203, 208, 240, 76 


8170 


DATA 


37, 32, 201, 255, 240, 53 


8176 


DATA 


160, 0, 177, 205, 240, 9 


8182 


DATA 


230, 205, 144,2, 230, 206 


8188 


DATA 


76, 242, 31, 24, 165, 205 


8194 


DATA 


105, 3, 133, 205, 144, 2 


8200 


DATA 


230, 206, 76, 215, 31, 200 


8206 


DATA 


132, 204, 177, 205, 141, 18 


8212 


DATA 


31, 200, 177, 205, 141, 184 


8218 


DATA 


31 , 108, 183, 31 , 160, 


8224 


DATA 


169, 46, 153, 128, 5, 169 


8230 


DATA 


0, 133, 203, 169, 155, 172 


8236 


DATA 


181,31, 174, 182,31,40 


8242 


DATA 


96, 68, 73, 82, 0, 125 


8248 


DATA 


32, 8 3, 67, 82, 65, 84 


8254 


DATA 


67, 72, 0, 22, 33, 76 


8260 


DATA 


79, 67, 75, 0, 27, 33 


8266 


DATA 


85, 78, 76, 79, 67, 75 


8272 


DATA 


0, 32, 33, 82, 69, 78 


8278 


DATA 


65,77,69,0,37,3 3 


8284 


DATA 


75, 73, 76, 76, 0, 42 


8290 


DATA 


33, 25 5, 155, 50, 54, 32 


8296 


DATA 


70, 82, 69, 69, 32, 83 


8302 


DATA 


69, 67, 84, 79, 82, 83 


8308 


DATA 


155, 155,0,0,68,58 


8314 


DATA 


42, 46, 42, 162, 80, 169 


8320 


DATA 


12, 157, 66, 3, 32, 86 


8326 


DATA 


228, 162, 80, 169, 3, 157 


8332 


DATA 


66, 3, 169, 6, 157, 74 


8338 


DATA 


3, 169, 120, 157, 68, 3 


8344 


DATA 


169, 32, 157, 69, 3, 32 


8350 


DATA 


86, 228, 152, 16, 3, 76 


8356 


DATA 


55, 33, 162, 80, 169, 5 


8362 


DATA 


157, 66, 3, 169, 100, 157 


8368 


DATA 


68, 3, 141 , 68, 3, 169 


8374 


DATA 


32, 157, 69, 3, 141 , 69 


8380 


DATA 


3, 169, 20, 157, 72, 3 


8386 


DATA 


141 , 72, 3, 32, 86, 228 


8392 


DATA 


152,48, 13, 169, 9, 141 
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8398 
8404 
8410 
8416 
8422 
8428 
8434 
8440 
8446 
8452 
8458 
8464 
8470 
8476 
8482 
8488 
8494 
8500 
8506 
8512 
8518 
9000 
9010 
9020 



DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

REM 

DATA 

REM 



66 , 3 
228, 
169, 
86, 2 
80, 1 
157, 
128, 
157, 
101 , 
5, 10 
32, 8 
76, 5 
169, 
35, 7 
76, 2 
229, 
12, 1 
76, 1 
169, 
86, 2 
133, 

DATA 
224, 

END O 



, 162 
76, 1 
12, 1 
28,7 
57, 6 
73,3 
5,56 
72, 3 
204, 
5,0, 
6, 22 
5 , 33 
33,7 
6,22 
29, 3 
32, 1 
73 , 3 
16, 2 
12, 1 
28, 1 
185 
FOR 
2, 22 
F DA 



,0,3 

O O ■ C> 

57, 6 

6, 30 

6,3, 

164 

152 

,24, 

157, 

157, 

8,15 

,76, 

6, 22 

9, 32 

2, 16 

3 , 3 

8,31 

28, 7 

57, 6 

04, 1 

76, 6 

AUTO 

15,2, 

iTA S 



, 86 

,16 

6,3, 

169, 
, 203 
, 229 
169, 

68, 3 

69, 3 
2,16 
30, 3 
9,32 
, 169 
9, 32 
7, 31 
, 133 
2, 16 
6,3, 
62, 2 
4, 18 
RUN 
1 , 31 
TATE 



2, 80 

32 

162 



, 153 

, 204 

128 

, 169 



, 169 

,36 

,76 

, 133 

, 13 

2, 80 

32 

55, 154 

5 

ADDRESS 

MENTS 



- 
* 



Program 2. Wedge Assembly Source 



100 


; The At 


ari Wedg e 


1 1 


* 




12 




*=$1F00 


0130 


ICCOM 


=$0342 


0140 


ICBADR 


=$0344 


0150 


ICBLEN 


=$0348 


1 6 


ICAUX 1 


=$034A 


17 


CORN 


= $03 


0180 


CPTXTR 


= $09 


1 9 


CGTXTR 


= $05 


0200 


CPBINR 


= $0B 


0210 


CCLOSE 


= $0C 


0220 


CIO 


=$E456 


0230 


OPDIR 


= $06 


0240 


HATABS 


=$031A 


0250 


LBUFF 


=$0580 


0260 


LENGTH 


= $CB 


0270 


MEMLO 


=$02E7 


0280 


FARMS 


= $CC 


2 9 


COM 


= $CD 


0300 


DOSINIT 


= $0C 


03 10 


ENTRY 


PLA 


tial izati 


on 



For BAS I C i n i 
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0320 ; Make wedge " RESET-pr dot " 

0330 I NIT 

0340 LDA DOS IN IT ; 

0350 STA REINIT+1 



; Save DOS 

: initializatia 



3 6 

INIT 
0370 
0380 ; 
0390 INIT2 

ni t 
4 
04 10 
0420 
0430 
0440 

0450 
0460 
0470 

poi nter 
0480 
0490 
0500 ; 
510 REINIT 



LDA DOSIIMIT+1 
STA REINIT+2 



; inside the RE 
; JSR call 



LDA #REINIT2<255 ; Replace DOS i 

STA DOSINIT ;with Wedge 

LDA #REINIT/256 ;init 

STA DOSINIT+1 

JSR MSG ; Print message 

JSR ECHAN6E ; hookup new E 

LDA #ENDWEDGE&255 ; Bump up 

STA MEMLO 

LDA #ENDWEDGE/256 ; 1 ow memory 

STA MEMLO+1 
RTS 



JSR XXXX 



; X X X X is filled 



in with DOSINIT 



0520 

0530 XXXX 

0540 ; 

0550 ; Print ' 

0560 ; 

0570 MSB 

o-f 
5 8 
0590 
0600 
0610 
0620 
0630 
0640 
0650 

e-returns 
0660 
0670 

i t or 
0680 

i nt it 
0690 
0700 

et urn 



JSR INIT2 
RTS 

welcome" message 

LDA #WMSG&255 



STA ICBADR 

LDA #WMSG/256 

STA ICBADR+1 

LDA #0 

STA ICBLEN+1 

LDA #12 

STA ICBLEN 

LDA #CPBINR 

STA ICCOM 

LDX #0 

JSR CIO 

TYA 

BMI ERR 



; Store address 
; message 

; Set 1 en g t h 

; Ignore carriag 

;File 0, the ed 
; Cal 1 CIO to pr 

:I-f no error, r 
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0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 

1 
0800 
0810 
0820 
083 
0840 
0850 
86 
0870 
0880 
0890 
900 
0910 
0920 
930 
0940 
0950 
0960 
9 7 

9 80 
0990 

1000 

1010 
1020 
1030 

1040 

1050 
1060 
1070 
10 8 
1090 

1 100 

1110 

112 
1 130 
1 140 



RTB 
ERR JMP ERROR 

WM5G -BYTE "Atari Wedge 2.0", 155 

; Following replaces the old E: 



ECHANGE 
ELOOP 

e 



LDY #0 

LDA HATABS,Y 

CMP # J E 

BEQ EFOUND 

INY 

I NY 

CPY #34 

BNE ELOOP 

RTS 



; Search f or E : 
; i n hand 1 er tab 



; Found end? 
;no, next entry 



;end of table? 
; return 
; Store new handler table address 

EFOUND INY 

LDA #WEDGETAB&255 

STA HATABS,Y 

INY 

LDA #WEDGETAB/256 

STA HATABS,Y 
; Transfer Editor table to Wedge table 

LDX #0 

XFER LDA *E400, X 

STA WEDGETAB, X 

I NX 

CPX #16 

BNE XFER 
; Patch in MY INPUT routine 

LDA #MY INPUT- 1*255 

STA WEDGETAB+4 

LDA #MYINPUT-1 /256 

STA WEDGETAB+5 

CLC 

LDA $E404 



add r es? 

s is +• 1 

g code! 
r r y ) 



ADS 



#1 



STA MYINPUT+1 

LDA *E405 

ADC #0 

STA MYINPUT+2 



Get character 

Actual addres 

Eg ads ! 

Self— modifyin 

(Accept any ca 
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1 150 
1 160 

1 170 
1 180 
1 190 
12 
1210 

1220 
1230 

12 4 
1250 

1260 

12 70 

1280 

1290 
1300 

1310 

1320 
1330 
1340 

1350 
1360 
1370 
1380 
1390 
1400 
1410 

1420 
1430 
1440 
1450 
1460 

14 70 

1480 
1490 
1500 

15 10 



nitially 



LDA #0 

STA LENGTH 

RTS 



Clear length i 



; Wedge handler address table 

WEDGETAB *=*+16 

YSAVE *=*+l ; Used to save Y 

r eg i st er 
XSAVE *=*+l ;Ditto for X 

JUMPADR *=*+2 ; used for indir 

e c t JHP 
MYINPUT 

; The $F63E address is actually placed 
here by above code 

; to permit this routine to run on the 
Rev ision B OS 

; (where it wouldn't necessarily be $F6 
3E) 

JSR $F63E ; Get a characte 

r f r om E : 

PHP 

CMP #155 
CR) 

BED ENDLINE 
line ready 

INC LENGTH 
PLP 
RTS 
ve the character 
ENDLINE 

STY YSAVE 

STX XSAVE 

LDA LENGTH 

BEQ RETURN. LINE 
LOOKUP 

LDA #C0MTBL&255 ; Set up indire 
c t point er for 

STA COM 

LDA #C0MTBL/256 ;command table 

STA C0M+1 
NEXTCOM LDY #0 
COMPLOOP 

LDA (COM) , Y 
d against line buffer 

CMP LBUFF,Y 

BNE NOTSAME 

INY 

LDA (COM) , Y 
t e r null? 



; End of 1 i ne? ( 
;Yes, complete 

;No, let CIO ha 
;Save Y for CIO 



; Compare com man 

; k a y so far? 
;no match 

;is next charac 
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1520 

1530 

1540 

1550 

15 60 
1570 

1580 

15 90 
1600 

1610 

1620 
1630 
1640 

1650 

1660 
1670 
1680 
1690 
1700 
17 10 

17 20 
1730 
1740 

1750 

1760 
1770 
1780 
1790 

18 
1810 

1820 

18 30 
1840 

1850 
1860 



oun d 



BEQ COMFOUND 
CPY LENGTH 



BNE COMPLOQP 
ue comparison 

J MP RETURN. LINE ;gi 
1 anguage 
NOTSAME 



command 
FINDEND 

et? 

cter 



CMP #255 

BEQ RETURN. LINE 

L D Y #0 

LDA (COM) , Y 

BED ENDCOM 



;yes, command i 

;exceeded limit 

; i f not , c on tin 

line to 

End of table? 



; No , 



skip over 



INC COM 



NO I NCI 



BCC NO I NCI 

INC COM+1 

JMP FINDEND 

null byte found 

ENDCOM CLC 

ver null byte 

LDA COM 

ADC # 3 

STA COM 

BCC N0INC2 

INC COM+1 

N0INC2 JMP NEXTCOM 

COMFOUND 

I N Y 

STY FARMS 
p ar amet er s 

LDA (COM) , Y 

ith command address 

STA JUMPADR 
I NY 

LDA (COM) , Y 

STA JUMPADR+1 
JMP (JUMPADR) 

EXIT LDY #0 

n here 

LDA # 7 . 

har ac t er to 

STA LBUFF,Y 

i gnor e line 
RETURN. LINE 

LDA tt 



; H i t the zero y 
; N o , next c h a r a 

; continue until 
; Add 3 to skip o 
; a n d JMP address 

; Check for carry 

; Y is index into 
; Load JUMPADR w 



; Execute ! 

; Commands retur 

;Change first c 

; " . " , or REM 
Allows BASIC to 
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1870 
1880 
1890 

1900 
1910 
1920 

1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
20 40 
2050 
2 6 
2070 
2080 
2090 
2100 
2110 
2 120 
2 130 
2140 
2150 
2 160 
2 17 
2180 
2 190 
2200 
2210 
2 22 
2 23 
2240 
2250 
2260 
2 2 7 
2280 
2290 

2300 
2310 



NOAUTO 
CIO 

st at us 



STA LENGTH 

LDA #155 

LDY YSAVE 

LDX XSAVE 
PLP 

RTS 



; Return EOL to 

; Restore Y 

; and X 

; and processor 

; That' sit 



COM 

W 

F 



TBL 

ed g 

or m 

BYT 

WOR 

nd 

BYT 



e commands and command table 

at i s : 

E "COMMAND" ,0 

D COMMAND. ADDRESS 

o-f t ab 1 e is 

E 255 



DIRBUF 
DIRNAME 



. BYTE 
. WORD 
. BYTE 
. WORD 
. BYTE 
. WORD 
. BYTE 
. WORD 
. BYTE 
. WORD 
. BYTE 
. WORD 
.BYTE : 

* = * + 2 
.BYTE 



" D I R " , 
DIR 

"SCRATCH" 
SCRATCH 
"LOCK" , 
LOCK 

"UNLOCK" , ! 
UNLOCK 
"RENAME" , ! 
RENAME 
"KILL" , 
KILL 



D : * . * 







; Start o-f commands: 
DIR 



LDX # * 5 

LDA ttCCLOSE 

STA ICCOM, X 

JSR CIO ;CLDSE*5 

; 0PEN#5, 6, 0, "D: *. *" 

LDX # * 5 

LDA ttCOPN 

STA ICCOM, X 

LDA ttOPDIR 

tory" command 

STA ICAUX 1 , X 

LDA #DIRNAMES ( 

idcardi 



I0CB#5 



channel #5 
open command 



spec i a 1 



direc 



-filename (wi 
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2320 
2330 
2340 
2350 
2360 
2370 
23S0 
2390 
2400 
2410 
2420 
2430 
2440 

2450 
2460 
2470 
2480 
2490 
2500 

2510 
2520 
2530 
2540 

2550 

2560 

2570 
2580 

2590 
2600 



; Print 

N0ERR1 

NEXT 



STA ICBADR, X 

LDA #DIRNAME/256 

STA ICBADR+1 , X 

JSR CIO ; set it up ! 

TYA 

BPL NOERR1 

JMP ERROR 
a line to the Editor 



he bu-f f er 



th is 20 



of -file 



LDX #$50 

LDA #CGTXTR 

STA ICCOM, X 

LDA #DIRB0FS.:255 

STA ICBADR, X 

STA ICBADR 

LDA #DIRBUF/256 

STA ICBADR+1 , X 

STA ICBADR+1 

LDA #20 

STA ICBLEN,X 

STA ICBLEN 

JSR CIO 
TYA 



;#: 



BMI ENDIR 
ished directory 
N0ERR2 LDA #CPTXTR 
rd (print a line) 

STA ICCOM 

LDX #0 
open to the Editor 

JSR CIO 

JMP NEXT 



let a line 
Put it into t 



; Maximum leng 
; (actual ly 17) 

;Check -for end 
;0n error, fin 
; Put text r e c o 

;Channel is 

; R e a d next lin 



2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 



ENDIR 



LDX 


#$50 








LDA 


#CCL0SE 






STA 


ICCOM 


. x 






JSR 


CIO 








JMP 


EXIT 








i rect or y 


r ou 


ti 


n e 



; CLDSE#5 



End of 

Following routine is used by 
unlock, scratch, and rename 
Filename buffer is in LBOFF 
e.g. LOCK D:TEMP 
this A portion is used 



1 ock 
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2740 
2750 
2760 

2 770 
2780 
2790 
2300 
2810 
2320 
2830 
2840 

2850 
2860 
2870 

2880 

2390 

290 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
304 
3050 
3060 
3070 
3080 
3090 

3 100 
31 10 
3120 
3130 
3140 

3150 
3 160 



; to tell CIO the filename 

CALLCIO 

LDX #$50 
n , #5 , etc . ) 

STA ICCOM, X 

LDA #0 

STA ICBLEN+1 , X 

LDY LENGTH 

STA LBUFF,Y 

SEC 

TYA 

SBC FARMS 
an d name ) 

STA ICBLEN, X 

CLC 

LDA #LBUFFS<255 
o-f parameters, 

ADC FARMS 



Use -file 



(XIO 



;Store command 
;Clear MSB 
; of 1 en g t h 



Get 1 eng t h 
□ -f -filename 
(skip over c o m n 



UFF 
nd 



STA ICBADR, X 

256 



; FARMS i s start 
; the space in LB 
■after the comma 



N0ERR3 



LDA #LBUF 

ADC #0 

STA ICBADR+1 , X 

JSR CIO ; Do the job 

TYA 

BPL NOERR3 

JMP ERROR 

JMP EXIT 



;Catch any carry 



SCRATCH LDA #33 

JMP CALLCIO 

LOCK LDA #35 

JMP CALLCIO 

UIMLOCK LDA #36 

JMP CALLCIO 

REIMAME LDA #32 

JMP CALLCIO 

i 

; Remove Wedge 

5 

KILL LDA REINIT+1 

STA DOSINIT 

LDA REINIT+2 

STA DOSINIT+1 

JMP $E474 ; ' 

SET 

; End o-f current wedge 



Restore old DOS 
vec t or 



Press" SYSTEM RE 
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3170 ; (Although more commands can be added. 



See -future issues o-f COMPUTE 



3 180 
3190 ; 
3200 ERROR 
3210 
3220 
3230 
3240 
3250 

e 
3260 
3270 
3280 



3290 

3300 

3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 



or code 

tine 

5 

i dge 

ENDWEDBE 



PHA ;Save error code 

LDX #$50 ;close file 5 

LDA #CCLOSE 

STA ICCOM,X 

JSR CIO 

PLA ;retrieve error cod 



LDX #*FF 

TXS 

STA *B9 

JMP *B940 



;reset stack 
jtell BASIC the err 
;call the ERROR rou 
in the BASIC cartr 



Autor un 



*=*02E0 
.WORD INIT 

. END 
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Renumber Plus 

Manny Juan and Paul N. Havey 



A renumbering utility is an important tool for the BASIC programmer. 
You will find "Renumber Plus" to be an invaluable aid. 

When you type a BASIC statement and press RETURN, BASIC 
converts your code into tokens. For example, all keywords and 
variables become one-byte tokens. A string becomes a sequence 
of tokens. The first byte of the sequence — always the decimal 
number 15 — tells BASIC that a string follows. The second byte 
tells BASIC the length of the string in bytes. The string appears as 
ASCII text following these first two bytes. When writing a 
program that deals with BASIC'S internal form, you need to 
consider the format of strings to avoid problems or bugs. 

The original "Renumber" by Manny Juan renumbers BASIC 
statements in RAM, resolves most line number references, and 
stays in memory for reuse. 

"Renumber Plus" is a BASIC utility that enhances Manny 
Juan's Renumber. Renumber Plus does the following four opera- 
tions the original Renumber does not: 

• Resolves literal line number references after the LIST 
command. 

• By-passes strings embedded in a statement. 

• Resolves literal references following symbolic ones in a list of 
references. 

• Allows you to choose where renumbering begins. These 
features add much to an already effective and useful tool. 

Using Renumber Plus 

1 . Type Renumber Plus into your Atari. 

2. Save the program with the direct command LIST "C" or LIST 
"D:REN". Using the LIST command allows you to merge 
Renumber Plus with your program. 

3. LOAD your program into the Atari. The highest line number 
must be less than 32100. The last statement must be END, 
STOP or RETURN. LOADing your program erases 
Renumber Plus from memory. 
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4. Enter Renumber Plus into the Atari with the direct 
command ENTER"C:" or ENTER "D:REN". 

5. Type GOTO 32100. 

6. When the prompt BEGIN,FROM,BY appears, enter the 
following: 

a. Beginning line number, 

b. New starting line number, and 

c. Increment value. 

7. Enjoy the musical interlude while your Atari works. Do not 
press BREAK or RESET while the program renumbers. The 
new line number followed by SR is displayed for each 
symbolic reference in your program. The new line number 
followed by NR is displayed for each reference to an old line 
number that does not exist. 

8. When Renumber Plus finishes renumbering, the number of 
renumbered lines and the following message are displayed: 
LIST"C:",bbbb,eeee 

bbbb = the first new line number 
eeee = the last new line number 

9. In order to save a copy of your renumbered program without 
the Renumber Plus program appended to it, use the LIST 
command (LIST "C:", bbbb,eeee for cassette and LIST "D: 
filename", bbbb, eeee for disk). 



Renumber Plus 

100 REM RENUMBER PLUS 

ltd Tfl = ?'iA!T = 1-7=^ , ?1fl 



321 10 
32120 

32130 



32142 
32144 
32150 

32160 
32170 
32180 
32190 
32200 
32210 
32220 
32230 
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Ktn KtNUMfcltK HLUb 

T8=256: 1=1:Z=32 100 

WM=0: X=PEEK(138>+PEEK(139)*T8:Y=PEEK(1 

34>+PEEK(135>*T8+8*(PEEK(X+5)-128)+2 

? "BEGIN, FROM, BY" : INPUT ST,FR,BY:? CHR 

* ( 125) 

B=PEEK <136)+PEEK<137)*T8:X=B:M=FR 

LN=PEEK (X)+PEEK(X+I) *T8 

IF BT>FR AND LN-ST THEN ST=LN 

LN = PEEK (X ) +PEEK ( X + I ) *T8: SOUND 0, LN, 10, 

8 

IF LN=Z THEN 32220 

PL=PEEK(X+2) :C=X+3 

LL = PEEK (C) : C = C+I 
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32240 
32245 
32250 
32260 
32270 

32280 
32290 

32300 
32310 
32320 
32330 
32335 
32340 
32345 
32350 
32355 
32360 
32362 
32364 
32366 



2370 
2380 
2390 
2400 
2410 
2415 
2420 
2430 
2440 
2450 



IF 
IF 
MH 
PO 
M = 
30 
TK 
IF 
T 
IF 
C = 
IF 
IF 
IF 
GO 
IF 
C = 
D = 
IF 
IF 
IF 
IF 



LN=Z THEN 



J0 



LN<ST THEN 32270 
=INT(M/T8) :ML=M-MH*T8 
KE X, ML: POKE X+I,MH 
M+BYI (LN>=ST) :X=X+PEEK(X+2) :GQTO 



;22 



= PE 
TK 

K = 3 
TK 

C+I 
D = 
D = 
D = 

TO 
TK 

C+I 

PEE 
D = 
D = 
D = 
D< 

5 



:k ( 

= 10 

i T 

■ ■-. -r 

. s O 

D = 
13 
.4 
.5 
523 
: >4 

GO 

(C 

8 

4 

5 

20 



C) 

OR TK=11 OR TK=12 OR TK=13 OR 
HEN C=C+I:GOSUB 32450:RETURN 
THEN 32345 
PEEK (C) 

OR D=24 THEN 32350 
THEN C=C+6 

THEN C=C+PEEK (C+I > +1 
10 

THEN 32380 
SUB 32450 
) 

THEN 
THEN 
THEN 

AND 



32350 

C = C + 6 

C=C+PEEK (C+I ) +1 

D< >22 THEN C=C+I:GO 



TO 32 



RETURN 

IF TK<>7 THEN RETURN 

C=C+I: D=PEEK (C) 

IF D=27 THEN 32430 

IF D=14 THEN C=C+6 

IF D=15 THEN C=C+PEEK ( C+ I ) + I 

GOTO 32390 

C=C+I:IF C<(X+LL) THEN GOSUB 32450 

RETURN 

D=PEEK(C):IF D=20 OR D=22 THEN C=C+I:R 

ETURN 



32460 IF D<>14 THEN 7 M ; " SR ,";: C=C+ I : RETURN 

32465 DD = PEEK (C + 7) : IF DD<>18 AND DDO20 AND 

DD< >22 THEN ? M ; " SR ,";: C=C+ I : RETURN 
32470 C=C+I:FOR J=0 TO 3:POKE Y+ J , PEEK ( C+ 3 ) : 

NEXT J 
32480 IF WM<LN THEN WX=B : RN=FR : GOTO 32500 
32490 WX=X:RN=M 
32500 WN=PEEK (WX) +PEEK(WX+I ) *T8: SOUND 1,WN,1 

0, 8 
32510 IF WN<Z AND WN<WM THEN RN=RN+BY* ( WN >=S 

T) : WX=WX+PEEK (WX+2) : GOTO 32500 
32520 IF WNOWM THEN ? M;" NF,";:GO TO 32540 
32525 IF WN<ST THEN 32540 
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32530 WM=RN:FOR J=0 TO 3:P0KE C+ J , PEEK ( Y+ J ) : 

NEXT J 
32540 C=C+6: RETURN 
32550 ? :? <M-FR)/BY;" LINES" 
32560 ? "LIST"; CHR* (34) ; "C: " ; CHR* (34) ; ", " ; FR 

; " , " ; M-BY 
32570 END 
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Purge 



Al Casper 



For the Atari 800 with 810 disk drive, this is a quicker arid simpler method 
of housecleaning diskettes. 

One of my favorite chores used to be clearing files off my 
diskettes, making room for new programs and files. Of course I'm 
kidding; I dreaded purging diskettes. First you had to load DOS 
and wait. Filenames had to be carefully entered, and finally the 
DELETE D:SLOW ? Y or N had to be dealt with. You also had to 
add one more step if the file was locked, or do it over from the 
start if you made a mistake. Repeat the above steps for each file 
you want deleted, and the entire process can easily take 20 
minutes per diskette. "Purge" was written to make this job fast 
and easy, freeing your valuable time for other things. 

Free Directory 

When Purge is finished clearing your diskette, a directory is 
printed on the screen. The directory has two advantages over the 
DOS directory. First, you do not need to load DOS to use it. 
Second, the files are printed in two columns, allowing twice as 
many files to be displayed before they start scrolling off the top of 
the screen. 

The program is written in two short sections, which makes it 
easy to save the DIR (Section A) as a separate program. The 
REMarks at the end of section A will explain this in more detail. I 
keep a copy of DIR on each of my diskettes. It requires only three 
sectors of disk space, well worth the time it can save you. I also 
have a LISTed version of DIR on a file named EDIR. I simply 
ENTER "D:EDIR" with any program I happen to have in memory. 
The high line numbers will almost never cause a conflict. Just type 
GOTO 32100 for a directory listing. DIR will now be a part of the 
program. 

To use Purge, simply load the program, insert the diskette to 
be purged into disk drive one, and type RUN. One at a time the 
files on that diskette will be displayed on the screen. Pressing 
RETURN will display the next file. When an unwanted file is 
displayed, press CONTROL <P> to purge it. This process continues 
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until all the files have been displayed. Don't panic if you make an 
error along the way; just press BREAK and start over. The purging 
takes place after all the files have been displayed and only if you 
press E as prompted on the screen. You'll hear a lot of action from 
the disk drive as the purging is taking place. The length of this 
operation varies with the number and length of files being 
deleted. 

XIO Examples 

The following is a line by line description of my program. This 
will be of most interest to programmers with limited experience 
working with disk operations. The XIO feature is the key to 
Furge. Writing this program in BASIC would have been very diffi- 
cult without XIO. Note that the program listing does not have all 
the lines in correct order. 

Line 32100 This special OFEN will allow inputs from the disk 

directory. The " *.*" in the filename is the same as a wildcard in DOS. 

Line 32102 The TRAF is very useful. In this case it will detect the 

EOF (end of file), treat it as an error, and end the inputs. 

Line 32104-32106 These are the INPUT(s) from the directory. The 

directory is printed in two columns. 

Line 32110-32115 The file is CLOSEd, and the program goes into 

an endless loop to prevent possible information from scrolling off 

the screen. 

Line 32000 Another TRAP for EOE The keyboard (K:) is OPENed 

for input. 

Line 32004 The OPEN is again to the directory. 

Line 32006 One at a time each directory entry is INPUT and 

tested for FREE SECTORS, which would be the last entry. The 

entry is then printed on the screen. 

Line 32008 The program waits for an input from the keyboard. A 

chime sounds and slows things a bit. 

Line 32010 If a purge was requested, the filename is created from 

the directory information. 

Line 32012 The filename is saved in a larger string for later 

purging. 

Line 32016-32017 Blank spaces have to be removed from the 

filename before they can be unlocked and deleted. 

Line 32018 The XIO's perform unlock and delete just as if you 

were using DOS. 

Line 32020 Files are CLOSEd, and the DIR routine will follow. 



196 



Utilities 



Program 1. Section A: DIR 



32050 RE 
32055 RE 
32060 RE 

SA 
32065 RE 

TH 
32067 RE 

TI 

3206S RE 
A 

32070 RE 
TO 

32100 DP 

32102 CL 
: T 

32 104 IN 

32106 IN 

32110 CL 

CB 



M SECTION (A) DIR 

M 

M WHEN FINISHED TYPING THIS SECTION 

VE IT WITH THE FILE NAME 'D:DIR' . 

M ALSO LIST IT TO THE DISKETTE WITH 

E FILE NAME£3 SPACES 3 7 D : ED I R ' . 

M 'EDIR' CAN THEN BE ENTERED AT ANY 

ME TO ATTACH A ' D I R ' 

M TO YOOR PROGRAM TO BE CALLED WITH 

r GOTO 32100' . 

M THEN CONTINUE ADDING SECTION (B) 

SECTION (A) 
EN #5, 6, 0, "D: *. * " 

R :GRAPHICS 0:POKE 82,1:DIM ENT$(17) 
: ? "—I I — 'H ll-il'l L. 



RAP 321 10: ? 
1 aJ:Tria--J ] " 

PUT #5,ENT$ 
PUT #5,ENT$ 
OSE #5:7 : 7 



!2i i: 



GO 



PHCESaPRES5 BRER 



TO 321 15 



ENT*; " C4 SPACES J " ; 
ENT*:GOTO 32104 

C4 snriMafcc-Bas 

U 5 aaiH^> r=nrc 

: POKE 82,2 



Program 2. Section B: Purge 



3 1900 
3 1910 
32000 

32002 



RE 
RE 
TR 
> S 
GR 
CD 



M : 
M 

AP 
* (' 



IECT ION 



(B) 



320 13 
i00) , P 



ES 
32004 7 
32006 IN 

EI" 

3 2007 GO 
32008 GE 

OU 
320 10 PG 

1 , 
320 12 S* 



O 



APHI 
OWN} 
"CO 
S RE 
"TO 
PUT 
FREE 
; : GO 

TO 3 
T #4 
CHO 
ND 
* ( 1 , 
11) = 
< X , Y 
STEP 
3 2 



CS 
AFTE 
NTRO 
TURN 
CONT 
#5, E 
SEC 
TO 3 

2 13 
, K: I 
ICE 
, 20, 
2) =" 

) =PG 
-0, 
6 



: OPEN # 
G* < 14) : 

:7 " CDO 
R EACH 
L-P TO 

I NUE " : O 
*: POSIT 
TORS" T 
2 008 

F K < > 1 6 

" : FOR 
10, Q: NE 
D: " : PG* 
PG* (12, 
*: X=X+1 
2: SOUND 



PURGE 

4, 4, 0, "K: " : DIM E* < 17) 
X=l : Y=14 

WNjTO PURGE": 7 " 

FILE DISPLAYED PRESS" 

DELETE 0R(3 SPACES>PR 

PEN #5, 6, 0, "D: * . * " 
ION 2, 10: IF E*(5,16)< 
HEN 7 E*:7 :7 " B3JEE 



THEN POSITION 2,12:7 
Q=15 TO STEP -0.2:S 
XT 0:GOTO 32006 
( 3 , 10) =E* i 3 , 10) : PG* < 1 
14) =E* (11,13) 
4:Y=Y+14:F0R 0=15 TO 

0, 40, 10, Q: NEXT 0:GOT 
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764, : 
32015 



!013 POSITION 2,15:7 " 
R 0=1 TO 120: POKE 
4, K: IF K = 80 THEN 
SOTO 32020 
X=l : Y=14: S=0 
TRAP 32020:PG$=St(X 
=S+1 : IF PG$ (S, S) =" 
* (S+l ,14) :S=S-1 
NEXT Q 

XIO 36,*3,0,0,PG$:XIO 33, #3 
X+14: Y=Y+14: S=0: GOTO 32016 
32020 CLOSE #4: CLOSE #5 



mnrai" ; = fo 

NEXT Q-.GET # 



32 



32 



014 
015 
016 



017 
018 



Y) : FOR Q=l TO 13: S 
THEN PG* (S, 14) = FG 



0,0, PG*: X= 
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Starshot 



Matt Giwer 



As this game will demonstrate, Atari BASIC can be fast enough if you 
know how to speed it up. Requires 24K and game paddles. 

Atari graphics approach those available in dedicated graphics- 
oriented computers. Atari BASIC allows very fast manipulation of 
strings, Direct Memory Access for the Player/Missile Graphics, 
and the direct call of machine language from BASIC. This game 
combines all of these features and a few others. 

Let's start the discussion of this program with the subroutine 
at line 30000. The first thing to do is to enable the Player/Missile 
Graphics. 

Appendix A of the Atari Hardware Manual gives a detailed 
example of how to do this. This method works only when there is 
nothing on the screen; as soon as you write to the screen, the 
method fails. The usual approach is to reserve enough pages for 
the screen RAM, the Player/Missile graphics pages, etc. All in all, 
to use Player/Missile Graphics with GRAPHICS 7, you wind up 
reserving 32 pages and, in the process, taking care of the 
computer rather than letting the operating system (OS) take care 
of you. Here is how to do it right. 

RAMTOP 

Contained in register 106 is the number of pages of RAM available 
to you for your use after everything needed for the system has 
been accounted for. What we want to do is to change this number 
so that RAM is protected for the Player/Missile Graphics pages. 
This is accomplished by POKE 106, PEEK(106)-16. This puts a 
number into that register that is 16 pages less than the number the 
operating system determines upon powering up the computer or 
upon system reset. But just POKEing a new number does nothing 
until the computer makes use of it. 

The second GRAPHICS 7 call causes the operating system to 
make use of this new RAMTOP to relocate the screen RAM and 
the display list below RAMTOP If you do not make this graphics 
call, you will find that the screen memory is above the new, lower 
protected memory limit, and the system will crash at the first 
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attempt to scroll the screen. In other words, your system registers 
that point to the first screen byte, and the display list will be above 
RAMTOE The operating system cannot handle this. 

You proceed as normal but much more cleanly now that you 
have lowered the effective top of your RAM and made the oper- 
ating system reorganize itself around that new maximum RAM 
with the second graphics call. Lines 30204 and 30206 are the 
enabling POKEs for Player/Missile Graphics as described in many 
articles and in De Re Atari. Line 30208 is the POKE to tell the oper- 
ating system where to find the start of the Player/Missile data. The 
start of this data is now simply RAMTOE 

With Flayer/Missile Graphics set up this way, you can forget 
about what the rest of the system is doing and treat it just as 
though Player/Missile Graphics were not in use. The operating 
system will take care of you. 

Player Definition 

The next routine of interest is at line 30236. (This is the machine 
language routine published in COMPUTEl's First Book of Atari 
Graphics, page 164.) It provides relocation of the four players at 
machine language speeds by means of two POKEs and, since the 
routine is executed during the vertical blanking time, the motion 
appears to be continuous. The rest of the 30000 lines define the 
players. Note that the RESTORE in line 30310 makes Player 3 the 
same as Player 2, although it is defined as a different color in line 
30230. 

Now let's jump to lines 100-120 — we will get to the earlier 
lines later. These lines are the definitions that will be used later for 
named subroutines. The use of named subroutines is a desirable 
feature that greatly aids program development. 

Lines 1890-1930 are both the one-time calls and those such as 
DISPLAY that are needed to set up the game at the start. 

The subroutine at line 10000 draws the background in the 
way that makes this illusion of motion possible. Note that each set 
of lines is drawn with a different COLOR and that the COLOR 
numbers rotate 1, 2, 3, 1, 2, 3, and so forth. I will get back to this in 
a minute. 

Color Rotation Simulates Motion 

The START subroutine at line 5000 POKEs numbers into the color 
registers so that you can see the screen and draws the eight 
attackers. You will also note that COLOR J also rotates the 
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COLOR assigned to the attacker graphic although in a more 
complex manner than in BACKGROUND. 

The DISPLAY subroutine at line 6300 controls the scoring and 
number of lives information that will be shown in the bottom 
alphanumeric window. 

ASELECT at line 6500 picks the order in which the attackers 
will attack from among the predefined ATTACKl-4$ in lines 54 
and 60. 

Within the infinite loop at line 2100 you'll find the reason why 
I used different COLORs to draw the background. The four state- 
ments in line 2110 rotate the colors used in the background 
through the registers in a bucket brigade manner; the colors seem 
to be moving toward you. Given the drawn background, it 
appears that you are moving forward through the trench. This 
illusion of motion requires the use of three different colors as a 
minimum. If there were only two colors, they would appear to 
flicker back and forth rather than move. The instructions in this 
line will be used in almost every subroutine so that this illusion of 
motion is maintained. 

This technique is useful in many applications — you can 
simulate many kinds of motion. If you were to reverse the order of 
the instructions, you would have the illusion of going backwards. 
Line 2120 is simply a short delay. 

Another line that you will find throughout the program is 
first used at line 5017. A = 74 + PADDLE(0)/2.92 is the equation 
that limits the motion of Player on the screen. The farthest left X 
location that Player can move to is 74. The range of values for the 
PADDLE(O) is to 228. Dividing this range of values by 2.92 
converts the largest value of 228 to the rightmost location of Player 
and makes the full left-to-right motion of the Player a full turn of 
the PADDLE. In order to simulate continuous motion, this equa- 
tion is also put into every subroutine where the program execu- 
tion takes a noticeable amount of time. 

The subroutine MOVE at line 5100 is a loitering loop that 
waits a random number of loops until the first attack begins. 
When the number 50 is reached, program execution jumps to 
SELECT at line 5200. 

The SELECT subroutine picks the sequence of the attackers 
from ATTACK1$ through ATTACK4$. ATTACKS for the first wave 
was initially called in line 1930. This routine randomly picks one of 
the four attack sequences defined in lines 54 and 60. An attempt 
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to read the ninth element in this string is TRAPped to line 5211, 
which redraws the attackers and starts over. 

Note this use of the TRAP instruction. It is not meant simply 
to avoid a program crash, but rather to perform an integral 
program function. Rather than a RAM and time-consuming test 
or loop, one simple statement is used. 

Lines 5215-5240 erase the chosen attacker, position Player 1 
over the erased attacker, and give some warning sounds. Line 
5241 calls the subroutine JOIN at line 5800. This routine adds 
together the strings which are used to define the X and Y posi- 
tions of Player 1 as it moves from its initial position to its attack 
position. 

Special TRAPs 

The strings are the AX1$ and AY1$ through AX8$ and AY8$ that 
were defined back in the beginning of the program. These are the 
X and Y coordinates to be POKEd into PLX + 1 and PLY + 1. They 
are stored as groups of three numbers. These values are read in 
lines 5260-5270. Note that by using TRAP here I do not have to 
keep track of the number of elements in the string. And again 
instead of some test or loop, a simple statement is used. These 
strings are merely added together. No matter what the sequence 
of the attack, the last pattern is always the same, and the last set of 
numbers in the string is always the same. 

The ATTACK subroutine at line 5300 is where the shooting 
occurs. The first call is for the subroutine PATTERN at line 5600. 
This subroutine chooses among five possible X position patterns 
and five possible Y position patterns. These are the rest of the 
strings defined in the beginning of the program. This inde- 
pendent choice of X and Y patterns permits a total of 25 different 
attack patterns. 

In line 5315, the X and Y values for this attack motion are read 
out in groups of three. In this case, the TRAP is used to jump back 
to the PATTERN subroutine call to pick another pair of strings 
when the end of the STRING is reached. This gives continuously 
varying motion to the attacker. 

Lines 5324 and 5325 change the size of the attacker as it comes 
closer or goes farther away. F and G are flags that control the firing 
and motion of the missiles. It is worth examining how these flags 
function. 

F controls the attacker's missile firing. Other than its house- 
keeping function, the primary purpose of the IF F = is to fix the 
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X and Y location at the moment of firing so that the motion is 
calculated only from this point. After F is set to 1, these statements 
are no longer executed. If they were, the missile would weave 
back and forth in X and Y in unison with the attacker. Behind the 
F = 1 flag are the calculations that determine whether the missile 
passes to the left or to the right. The G flag performs a similar 
program function. 

Lines 5350 and 5352 check for missile-to-player collisions and 
direct action to the appropriate subroutine. Line 5355 clears the 
collision registers. 

HITYOU, HITME, HITUS 

The HITYOU, HITME, and HITUS subroutines introduce Players 
2 and 3 as the explosions. In HITYOU and HITME, these two 
players are sequentially put in the same location as the hit player. 
This sequence is controlled by the TT variable. Note that the two 
explosion shapes are the same but of different colors. Also, when 
they are called, they are placed one Y position different. The 
purpose is to give some illusion of a dynamic explosion. 

Lines 5440 and 5540 move the hit player and explosions off 
the screen. The logical truth statements determine whether the hit 
player was to the left or right of center when hit and then move it 
off the screen to the left or right as appropriate. Lines 5545 and 
5547 cause the attacker and the explosions to grow larger as they 
goby. 

The significant difference in the two subroutines is that in 
HITYOU there is an additional collision test in line 5560. This 
requires you to get out of the way of the hit player as it rolls off the 
screen. If you don't, you are also destroyed, and both players roll 
off the screen. This is controlled by the HITUS subroutine. Being 
hit by the attacker's missile and by the damaged attacker causes 
you to lose one life. 

Good Practice 

This is a quick review of a fairly complex program. It exploits 
many of the Atari's features. The method of reserving the Player/ 
Missile Graphics pages by moving RAMTOP lets the machine 
take care of you and perhaps completes the official Atari version of 
how to turn on the function. 
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Starshot 



40 
50 

51 



53 

54 

60 
61 

62 

63 

64 

65 
66 
67 
68 
69 
7 
71 
72 
7 3 
74 
75 
76 
83 

84 

85 

86 

87 

88 

89 



J = 6 
DIM 
Y* < 
DIM 
3$ ( 
, AP 
DIM 
J) , 
) ,A 
DIM 
TTA 
ATT 
TTA 
ATT 
AX5 
612 
AYS 
504 
AX4 
012 
AY4 
005 
AX6 
AY6 
AX2 
AY2 
AX1 
AY1 
AX3 
AYS 
AX7 
AY7 
AX8 
AY8 
APX 
421 
APY 
141 
APX 
181 
APY 
08 1 
APX 
261 
APY 
201 
APX 
34 1 



X = 5 
TACK 
) , AP 
4* (J 
APY3 
(J) 
3* (J 

* < J ) 
( J ) , 

AYER 

* (8) 
2*=" 
*=" 4 
1*=" 
136 1 
2121 
0380 
9052 
1181 
6126 
0360 
3070 
1561 
0380 
0780 
0380 
0580 
0380 
0981 
0400 
1761 
0380 
1961 
0400 
" 126 
to 1 ? 
"074 
0910 
" 126 
0710 
"074 
0009 
" 126 
3413 
"074 
0609 
" 126 
1311 



* (8) , AX5* 
XI* < J) , AP 
) , AY4* (J) 
* ( J) , APX4 



) , AY 
, AX7 
AY1$ 
* ( 10 
, ATT 
3762 
7618 
5463 
3613 
1211 
3703 
0560 
2012 
1261 
3403 
0760 
5415 
3603 
8008 
4204 
6006 
3503 
00 10 
4404 
7417 
3603 
9419 
4404 
120 1 
6120 
0770 
7105 
1281 
4 107 
0790 
4087 
1301 
8142 
0740 
8090 
5.341 
110 



3* ( J ) 

* < J) , 

(J ) 

) , ATT 

ACK4* 

84 15" 

3 2 5 " 

7281 " 

51341 

22123 

50340 

59062 

21241 

26126 

20300 

82030 

2 1501 

40330 

20840 

40460 

20640 

10350 

2 1041 

80460 

21701 

40320 

21901 

80460 

14 110 

11411 

82090 

10410 

30134 

110 11 

84036 

08008 

34138 

14414 

74074 

03608 

42134 

12613 



<J) ,AY5t(J) , AX* <3*J> , A 
Yl* < J ) , APX* < J ) , APY* ( J ) 
, APX2* ( J ) , APY2* < J ) , APX 
* < J) ,APY4*(J) , APX5* ( J ) 

, AX2* ( J ) , AY2* < J > ,AX6*( 
AY7* < J ) ,AY8*<J) , AX8* < J 

ACK1* (8) , ATTACK 2*(8) ,A 
(8) 
: ATTACK 3*=" 2 8 647 135" : A 



PLA 
313 
241 
403 
650 
612 
261 
303 
730 
814 
403 
608 
305 
606 
304 
610 
404 
816 
00 3 
813 
404 
101 
110 
951 
095 
381 
120 
830 
030 
421 
138 
740 
074 
261 
142 



YER 
213 
251 
403 
630 
813 
261 
003 
760 
614 
603 
809 
005 
807 
204 
81 1 
204 
616 
303 
613 
204 
141 
114 
00 1 
090 
421 
124 
941 
078 
461 
134 
820 
074 
181 
132 



= " 1 



0129 

26" 

7039 

74" 

2134 

26" 

4 037 

74" 

2 140 

0042 

2094 

9046 

2074 

8046 

2114 

8036 

2160 

9042 

2130 

3036 

2613 

126" 

0510 

077" 

3613 

123" 

06 1 1 



3 4 : 
1281: 



712 
4304 
213 
04004305 



04 10' 
1341: 



1331 
4 
0960 
0420 
0760 
0420 
1161 
0370 
1581 
04 00 
1781 
0360 
2138 



36" 
38" 
98" 
38" 
78" 
38" 
18" 
38" 
56" 
38" 
76" 
38" 
1421 



7 109 
0124 



1121 
1211 
0114 1101 



381341301261 

126" 

900981061 141 

074" 

101261341421 

126" 
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6 



90 
91 
92 
100 

110 

120 

189 
190 
191 
192 
193 
200 
210 
211 

212 
213 

290 
500 
5 00 



APY4*=" 0740780820860920860820780740780820 

8609209 60 9 2 0880 8408007 60720 7207 4" 

APX5*=" 126132138144150156162156 1501441381 

321261201 161 10104098 104 110116126" 

APY5*=" 07407006807 0074080084090096 102 1061 

20960920860820 78076074070072074" 

BACKGROUND= 10000: START=5000: MQVE=5 100: SE 

LECT=5200: ATTACK=5300: HITME=5400: HITYOU= 

5500 

PATTERN=5600: RESET=5700: JOIN=5800: HITUS= 

5900 

X SCR =6 000: YSCR=6100: LCSS=6200: DISPLAY=6 3 

00: RESET2=6400: ASELECT=6500 



i01l 

J01 

}01 ( 

501' 

50 1' 



5 2! 
502: 

502: 
502! 

5 3: 

503' 

503 ( 
509S 

510! 



GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 





710, PEEK < 709) : POKE 
708, TEMP 



. 0: POKE 
132: REM 



7 10,5 
709, 1 



300 00 

BACKGROUND 

START 

DISPLAY 

ASELECT 
REM CONTROL LOOP 
FOR IJK=1 TO 2 STEP 
TEMP=PEEK (710) : POKE 
709, PEEK (708) : POKE 
Q = 5IN ( 1 ) 
GOSUB MOVE 
NEXT UK 
REM START 
POKE 708, 10: POKE 709 

PLY,150:POKE 53761 
FOR 1=1 TO 8 
FOR J=0 TO 2 
TEMP=PEEK (710) 
709, PEEK (708) 
A=74+PADDLE (0) 
60, A-33 

COLOR J*I:IF J*I=4 OR J*I=0 OR 
J*I=12 OR J*I=16 THEN COLOR 1 
PLOT 20* 1-10, J : DRAWTO 20*1-11, J 
COLOR J* I: IF J * I =4 OR J* 1=0 OR J* 

J*I=12 OR J*I=16 THEN COLOR 2 
PLOT 20* I -8, J+3: DRAWTO 20*1-12, J+ 
TEMP = PEEK (710) : POKE 7 10, PEEK (709) 
709, PEEK (708) : POKE 70S, TEMP 
COLOR J*I: IF J * I = 4 OR ,1*1=0 OR J* 

J*I=12 OR J*I=16 THEN COLOR 3 
PLOT 20* I -8 , J+6: DRAWTO 20*1-9, J+6 
20*1-12, J+6: DRAWTO 20*1-11, J+6 
NEXT J : NEXT I 
RETURN 
REM MOVE 



POKE 7 10, PEEK (709) 
POKE 708, TEMP 
/2.92:P0KE PLX,A:PO 



J * 



6: POKE 
52 

: POKE 
KE 537 
1=3 OR 

1=8 OR 

3 

: POKE 

I =3 OR 

: PLOT 
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5 105 FOR IJK=1 TO 2 STEP 

5110 TEMP=FEEK (710) : POKE 7 1 , PEEK i 709 ) : POKE 
709, PEEK (70S) : POKE 708, TEMP 

5111 A = SIN ( 1 ) 

5 120 A=74+PADDLE < ) / 2, 92: POKE PLX,A:FOKE 537 

6 , A - 3 3 
5130 RR=RR+1: IF RR=50 THEN BDSUB SELECT: RR=I 

NT £40*RND (0) ) : FOKE 53763, 0:POKE 53761,1 



5 


135 


5 


190 


5 


20 


5 


205 


5 


210 


5 


21 1 




215 


5 


220 


5 


223 


5 


224 


5 


225 



5230 
5235 

5236 

523S 

5239 

5240 
5241 
5249 

5250 

5255 
5260 

5265 
5266 
5270 



NEXT UK 
RETURN 

REM SELECT 

J J J=J J 3 + 1 

TRAP 52 1 1 : R = VAL ( ATTACK* ( J J J , J 3 3 ) > : COLOR 

0:GOTO 521 5: TRAP 40000 
BDSUB START: 3 3 3=0: SOTO 5205 
FOR J=0 TO 2 

PLOT 20*R-10, 3 : DRAWTO 20*R-11,J 
TEMP=PEEK (7 10) : POKE 7 10, PEEK (709) : POKE 
709, PEEK (708) : POKE 708, TEMP 

A=74+PADDLE (0) /2. 92: POKE PLX,A:POKE 537 
6 0, A - 3 3 

PLOT 20*R-8, 8-J : DRAWTO 20 * R-9 , 8- J : PLOT 
20*R-12, 8-J : DRAWTO 20*R-1 1 , 8-J 
NEXT J 

PLOT 20*R-8, 3: DRAWTO 20 * R- 1 2 , 3 : PLOT 20* 
R-8,5:DRAWT0 20*R-12,5 

POKE PLX + 1 , 36+20*R: POKE PLY+1 , 38: PLOT 2 
0*R-8, 4: DRAWTO 20*R-12,4 

FOR 1=250 TO 50 STEP -50: FOR X=15 TO 
STEP -5: SOUND 3, Z, 8, X: NEXT X 
TEMP=PEEK (710) : POKE 710, PEEK (709) : POKE 
709, PEEK (708) : POKE 708, TEMP 
NEXT Z 
BOSUB JOIN 

TEMP=PEEK (710) : POKE 7 10, PEEK (709) : POKE 
709, PEEK (708) : POKE 708 , TEMP : POKE 53763, 
134 

A = 86 + PADDLE (0) / 2. . 92: POKE PLX,A:POKE 537 
60, A-33 

FOR J=l TO 200 

TRAP 5280:X=VAL(AX$(J*3-2,J*3) ) :Y=VAL(A 
Y$ ( J*3-2, J*3) ) : POKE PLX+1, X: POKE PLY+1, 
Y:TRAP 40000: POKE 53762, Y-20 
TEMP=PEEK (710) : POKE 7 1 , PEEK ( 709 ) : POKE 
709, PEEK (708) : POKE 708, TEMP 

A=74+PADDLE (0) /2. 92: POKE PLX,A:POKE 537 
60, A-33 
NEXT J 
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5280 


GOSU 


5270 


RETU 


5300 


REM 


5305 


GOSU 


5310 


FOR 


53 15 


TRAP 




APY* 


5321 


TEMP 




709, 


5322 


A = 74 




60, A 


5324 


IF Y 


5325 


IF Y 


5330 


POKE 




20 


533 3 


IF F 




53, X 




7 + Y: 


5335 


IF F 




64, 1 


5337 


IF F 




128) 




KE M 


5338 


IF F 




M1P> 


5339 


TEMP 




709, 


534 


IF G 




BASE 




M0P, 


5 34 2 


IF G 




537 


5347 


IF G 




28) + 




M0PO 


534 9 


IF G 




ET"7 — 7 




, 


5350 


IF P 


5352 


IFF 




M0PO 


5355 


POKE 


53 7 5 


NEXT 


5380 


POKE 


5395 


RETU 


5 40 


REM 


5405 


POKE 




R = 


54 10 


FOR 



B ATTACK: GOSUB RESET 

RN 

ATTACK 

B PATTERN 

J=l TO 200 

5305:X=VAL(APX*(J*3-2,J*3) ) : Y=VAL ( 
< J*3-2, J*3) ) : TRAP 40000 

=PEEK (710) : POKE 7 10, PEEK (709) : POKE 
PEEK (708) : POKE 708, TEMP 
+PADDLE (0) /2. 92: POKE PLX,A:POKE 537 

>94 THEN POKE 53257,1: POKE 53258,1 
<94 THEN POKE 53257,0: POKE 53258,0 
PLX+l,X:POKE PLY+l,Y:POKE 53762, Y- 

=0 THEN MlP=MYPMBASE+777+Y: POKE 532 

:POKE M1P, 12:MlPO=MlP:T=MYPMBASE+90 

XT=X 

=0 THEN F=l:POKE 53765 , 207 : POKE 537 



= 1 THEN MlP = MlP + 7: XT= (-1 . 5+XT) * ( XT< 
+(1.5+XT)*(XT>128) : POKE 5 3253, XT: PO 
IP, 12: POKE M1PO, 

=1 THEN M1P0=M1P: POKE 53765, 160: IF 
T-50 THEN F=0:POKE M1PO,0 
=PEEK (7 10) : POKE 710, PEEK (709) : POKE 
PEEK (708) :POKE 708, TEMP 

=0 THEN IF PTRIG(0)=0 THEN M0P=MYPM 
+768+15 0: PT=80+PADDLE(0)/2. 29: POKE 
3:G=1:P0KE 53252, PT 

=1 THEN M0PO=M0P: T0=M0P-70: G=2: POKE 
65, 15: POKE 53764,50 

= 2 THEN M0P = M0P-7: FT= (3. 5 + PT) * (PT< 1 
( -3. 5+PT) * (PT; 123) : POKE M0P, 3: POKE 

t 

=2 THEN POKE 53252 , PT : M0PO=M0P : POKE 

65, 160: IF M0P<T0 THEN G=0:POKE M0PO 

EEK(53256)=2 THEN GOSUB HITYOU 

EEK (53257) =1 THEN GOSUB HITME:POKE 

,0:POKE M1PO,0 

53278, 

J 

PLX , PADDLE (0) : POKE PLY, 148 
RN 
HITME 

5376 1 , 15: POKE M0PQ,0:PQKE M1PO,0:R 

J=l TO 200 
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5412 


IF TT 




4 + RR: 




48 + RR 


5413 


IF TT 




4 + RR: 




4S + RR 


5415 


TRAP 




APY$ ( 


5421 


TEMP = 




709, P 


5424 


IF Y> 


5425 


IF Y< 


5427 


POKE 




20 


5430 


IF TT 




4 + RR: 


5431 


IF TT 




4 + RR: 




48 + RR 


5432 


IF TT 




4 + RR: 




4S + RR 


5435 


TEMP = I 




709, Pi 


5440 


RR= <RI 




: IF A 


5441 


POKE ! 


5442 


IF A < i 


5444 


IF 14 


5490 


NEXT , 


5495 


POKE i 




1 ,0 


5497 


RETURI 


5500 


REM H 


5505 


POKE ! 




R = 0: Pi 


5510 


FOR J 


553 1 


IF TT 




, X: PO 




, 0: TT 




IF TT 




X : POK 




0: TT = 


5534 


A = 74 + 




62, Y: 


5540 


Y = Y + 7 


5545 


IF Y > 




POKE 


5547 


IF Y > 




: POKE 



=0 THEN POKE 53253, 3: POKE PLY+2,14 

POKE PLX+2,A:PGKE PLX,A:POKE PLY, 1 

: TT=1 

=1 THEN POKE 53259, 3: POKE PLY+3,14 

POKE PLX+3, A:POKE PLX,A:POKE PLY, 1 

: TT = 

54 10:X=VAL(APX*(J*3-2,J*3) ) :Y=VALi 

J*3-2, J*3) ) : TRAP 40000 

PEEK (710) s POKE 7 1 , PEEK (709) : POKE 

EEK(703) sPOKE 708, TEMP 

94 THEN POKE 53257, 1 : POKE 53258,1 

94 THEN POKE 53257,0: POKE 53258,0 

PLX+1 , X : POKE PLY+1 , Y : POKE 53762, Y+ 

= THEN POKE 53258, 3: POKE PLY+2,14 

POKE PLX+2, A: POKE PLX+3,0:TT=1 

=0 THEN POKE 53258, 3: POKE PLY+2,14 

POKE PLX+2,A:P0KE PLX,A:POKE PLY, 1 

: TT=1 

=1 THEN POKE 53259, 3: POKE PLY+3,14 

POKE PLX+3, A: POKE PLX,A:POKE PLY, 1 

: T T = 

PEEK < 710) : POKE 7 1 , PEEK ( 709 ) : POKE 

EEK (708) : POKE 708, TEMP 

R + 7) : A= ( A + 7) * ( A>123) + ( A-7) * ( A< 127) 

<0 THEN J=20 1 

53760, RR 

OR A>255 THEN J=20 1 

4+RR>255 THEN J=201 

J:GOSUB YSCR 

PLY+2, 229: POKE PL Y+3 , 229 : POKE 5376 

N 

ITYOU 

53763, 15: POKE M0PO,0:POKE M1PO,0:R 
OKE M0P,0:POKE M1P.0 
= 1 TO 2 

=0 THEN POKE PLY+2, Y-10: POKE PLX+2 
KE PLY+1, Y:POKE PLX+1, X : POKE PLX+3 
= 1 

=1 THEN POKE PLY+3, Y-9: POKE PLX+3, 
E PLY+1, Y:POKE PLX+1, X : POKE PLX+2, 


PADDLE (0) /2. 92: POKE PLX,A:POKE 537 
POKE 53760, 41+PADDLE (0) /2. 92 
: X= (X+3.5) * (X>12S)+(X-3.5) * (X<128) 
94 THEN POKE 53257,1: POKE 53258,1: 
53259, 1 

130 THEN POKE 53257, 3: POKE 53258,3 
53259, 3 
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jjj 







3560 
5582 
5584 
5590 
5595 
5597 
5 6 
5 6 10 
5621 
5622 
5623 
5624 
5625 
5626 

563 
5641 
5642 
5643 
5644 
5645 
5690 
5700 
5 710 

57 90 
5 8 

58 10 



5812 

5815 
581 7 
5 8 2 



5825 
5830 
5335 

5837 

5840 



TEMP 

709, 
IF P 
IF Y 
IF X 
NEXT 
POKE 
RETU 
REM 
R=IN 
IF R 
IF 
I F 
IF 
IF 
TEMP 
709, 
R = I N 
IF R 
IF R 
IF R 
IF R 
IF R 



R = 
R = 
R = 
R = 



PEE 
EEK 

EK ( 
255 
255 
J : G 
PL 2 
N 

ELE 
( 5 * 

1 T 

2 T 

3 T 

4 T 

5 T 
PEE 
EEK 
(5* 

1 T 

2 T 

3 T 
T 
T 



K (710) : POKE 7 10, 
(708) : POKE 708, T 
53260) < >0 THEN G 

THEN J = 2 1 

OR X<0 THEN J = 
OSUB XSCR 
+2,0: POKE FLX+3, 0: POKE 5 



PEEK (709 5 : POKE 

EMP 

OSUB HIT US 

!©1 



' o - j- , k) 



= 4 



RETU 
REM 
F = : 
RETU 
REM 
IF R 
2*: A 
= AX4 
IF R 
2$: A 
= AY4 
IF R 
3*: A 



IF 
3* 
IF 
4* 

IF 
4$ 

IF R 
IF R 
I F R 
X5* 
IF R 
Y5$ 
IF R 
6*: A 



N 
ESE 

= 0; 

N 

DIN 

1 T 
* (L 



CT P 
RND ( 
HEN 
HEN 
HEN 
HEN 
HEN 
K ( 7 1 
(708 
RND ( 
HEN 
HEN 
HEN 
HEN 
HEN 

T 
POKE 



ATTER 
) ) + 1 
APX$ = 
APX* = 
APX* = 
A P X * = 
APX$ = 
) : P 
) : P K 
) ) + 1 
APY$ = 
APY* = 
APY$ = 
APY$ = 
APY$ = 



APX 1 * 

A P X 2 * 
A P X 3 $ 
A P X 4 * 
APX5$ 
K E 7 10 : 
E 7 08," 

A P Y 1 $ 
APY2$ 
A P Y 3 * 
A P Y 4 * 
A P Y 5 * 



PEEK (709) : POKE 
EMP 



>OKE PLX + 1,0 



HEN AX$ = A>:i$:AX$ 
EN(AX$)+i)=AX3$: 



1 THEN AY*=AYi*sAY* 
* ( LEN (AY* ) +1 ) =AY3$ : 



2 THEN AX$=AX2$:AX$ 
* (LEN ( AX*) +1 ) = AX4* 

2 THEN AY$=AY2$:AY$ 
$(LEN(AY$)+li=AY4$ 

3 THEN AX$=AX3$:AX* 



(LEN (AX*) +1 ) =AX 

AX* ( LEN ( AX* ) + 1 ) 

(LEN (AY*) +1 ) =AY 
AY* ( LEN (AY*) +1 ) 

(LEN ( AX*) +1 ) =AX 

(LEN (AY*) +1 ) =AY 

(LEN ( AX*) +1 ) =AX 



R=3 THEN AY*=AY3*: AY* ( LEN ( AY*) +1 ) =AY 



=4 THEN AX*=AX4*: AY*=AY4* 
=5 THEN AX*=AX5*: AY*=AY5* 
=6 THEN AX*=AX6*: AX* (LEN ( AX6*) +1 ) =A 

= 6 THEN AY* = AY6*: AY* (LEN ( AY6* ) +1 ) =A 

=7 THEN AX*=AX7*: AX* (LEN ( AX*) +1 ) =AX 
X*(LEN(AX*)+1)=AX5* 
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5842 


IF R = 




6 * : A Y 


5845 


IF R = 




7$: AX 




= AX5* 


5B47 


IF R = 




7*: AY 




= AY5* 


5890 


RETUR 


5700 


REM H 


5905 


POKE 




R = 0: P 


5910 


FOR J 


5931 


POKE 




,Y:PO 


5932 


POKE 




: POKE 


5940 


Y = Y + 7 




: A= ( A 


5950 


TEMP = 




709, P 


5982 


IF Y > 


5984 


IF X > 


5990 


NEXT 


5995 


POKE 


5997 


RETUR 


600 


REM X 


6010 


SCORE 


6080 


GOSUB 


6090 


RETUR 


6100 


REM Y 


6 12 


PLAYE 


6125 


P X = P X 


6 130 


IF PX 


6 180 


BOSUB 


6 19 


RETUR 


6200 


REM L 


6 2 10 


IF SC 


6220 


GOSUB 


6280 


GOSUB 


6290 


RETUR 


6 3 


REM D 


630 5 


POKE 


6 3 10 


? PLA 


6 3 2 


? "SC 


6 33 


? "HI 


6 3 4 


IF PX 




ER GA 


6350 


IF PX 



SUB R 



7 THEN AY*=AY7*:AY* 
$(LEN(AY$)+1)=AY5$ 

8 THEN AX*=AX8*:AX* 

$(LENiAXt)+l)=AX6$: 

8 THEN AY$=AY8*:AY* 
$(LEN(AY$)+1)=AY6$: 

N 

ITUS 

53763, 15: POKE M0PO, 

OKE M0P,0:POKE M1P, 

=1 TO 200 

PLY+2, Y-10: POKE PLX 

K E P L X + 1 , X 

PLY+3, Y-10: POKE PLX 

PLX, A 
: X= ( X + 3. 5) * (X >128> + 
+ 3. 5) * ( A>1 12) + ( A-3. 
PEEK (710) : POKE 710, 
EEK (708) : POKE 708, T 
255 THEN J=201 
255 OR X<0 THEN J=2 
J:GOSUB YSCR 
PL2+2,0:POKE PLX+3, 
N 

SCR 
=SCORE+10 

DISPLAY 
N 

SCR 

R*(2*PX-l,2*PX-i )=" 
-1 
=0 THEN GOSUB LOSS 

DI SPLAY 
N 

OSS 
ORE>HSCR THEN HSCR= 

DISPLAY 

RESET2 
N 

I S P L A Y 

53258, 0:POKE 53259, 
YER* 

ORE: "; SCORE 
GH SCORE: ";HSCR 
=0 THEN ? " PUSH TR 
ME" ; 

=0 THEN IF PTRIGC0) 
ESET2: GOSUB ASELECT 



(LEN ( AY$) +1 ) =AY 

(LEN !AX$i +1 ) =AX 
AX$ (LEN ( AX$) +1 ) 

(LEN (AY*) +1 ) =AY 

AY* (LEN (AY*) +1 ) 



0:POKE M1PO,0:R 



+2, X : POKE PLY+1 

+3, A: POKE PLY,Y 

(X-3.5)*(X<128) 
5 ) * ( A < 1 1 2 ) 
PEEK (709) : POKE 
EMP 

01 

0:POKE 53763,0 



SCORE 



IGGER FOR ANOTH 
=1 THEN 6350: GO 
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63 
6 3 
63 
63 
64 
64 
64 
64 
65 
65 
65 
65 
65 
65 
65 
10 

10 
10 



10 

10 



10 

10 



1 
1 



10 

10 



10 
10 



10 
10 



10 
10 



6 ? PLAYER* 
62 ? "SCORE: " ; SCORE 
64 ? "HIGH SCORE: "; 

9 RETURN 
00 REM RESET2 

10 SCORE=0: PLAYER*=" 1 
3 P X = 5 
90 RETURN 
00 REM ASELECT 
10 Z Z = I N T ( 4 * R N D ( ) ) + 1 
2 IF Z Z = 1 
22 IF ZZ=2 
24 IF ZZ=3 
26 IF ZZ=4 

9 RETURN 

00 REM BACKGROUND 
5 FOR 1 = TO 3 : P K E 

007 COLOR 3: PLOT 0,20 
70, 40: DRAWTO 90,4 

15 9, 20 

010 COLOR 1 s FOR 1=1 T 
020 PLOT 0,20+I:DRAWT 

-I ,40+1: DRAWTO 90 

0+1: DRAWTO 159,20 

040 COLOR 2: FOR 1=1 T 

050 PLOT 0,22+I:DRAWT 

- I , 42+ I : DRAWTO 92 

2+1: DRAWTO 159,22 

060 COLOR 3: FOR 1=1 T 

070 PLOT 0,24+I:DRAWT 

-I , 44+1 : DRAWTO 94 

4+I:DRAWT0 159,24 

080 COLOR l:FOR 1=1 T 

090 PLOT 0,27+I:DRAWT 

-I , 47+1 : DRAWTO 97 

7+I:DRAWT0 159,27 

100 COLOR 2: FOR 1=1 T 

110 PLOT O,30+I:DRAWT 

- I , 50+1 : DRAWTO 10 

, 30+1 : DRAWTO 159, 

120 COLOR 3:F0R 1=1 T 

130 PLOT 0,35+I:DRAWT 

-I , 55+1 : DRAWTO 10 

,35+1: DRAWTO 159, 

140 COLOR l:FOR 1=1 T 

150 PLOT 0,40+I:DRAWT 

-I , 60+1 : DRAWTO 11 

,40+1: DRAWTO 159, 

10160 COLOR 2:F0R 1=1 T 



HSCR 



THEN 


ATTACK 


$ = 


=ATTACK 


1* 


THEN 


ATTACK 


■±. = 


=ATTACK 


2$ 


THEN 


ATTACK 


5 = 


=ATTACK 


3* 


THEN 


ATTACK 


* = 


=ATTACK 


4* 



708+1,0: NEXT I 
: DRAWTO 70, 20: DRAWTO 
0: DRAWTO 90, 20: DRAWTO 

O 2 

O 70-1 , 20+1 : DRAWTO 70 

+1 , 40+1 : DRAWTO 90+1,2 

+I:NEXT I 

O 2 

O 68-1 , 22+1 : DRAWTO 68 

+1 , 42+1 : DRAWTO 92+1,2 

+ I : NEXT I 

O 3 

O 66-1 , 24+1 : DRAWTO 66 

+ 1 , 44+1 : DRAWTO 94+1,2 

+1 : NEXT I 

O 3 

O 63-1 , 27+1 : DRAWTO 63 

+ I , 47+1 : DRAWTO 97+1,2 

+IsNEXT I 

5 

60-1 , 30+1 : DRAWTO 60 

0+1 , 50+1 : DRAWTO 100+1 

30+ I : NEXT I 

O 5 

55-1 , 35+1 : DRAWTO 55 

5+1 , 55+1 : DRAWTO 105+1 

35+I:NEXT I 

O 7 

O 50-1 , 40+1 : DRAWTO 50 

0+1 , 60+1 : DRAWTO 110+1 

40+1 : NEXT I 

7 
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10 17 



10 18 
10 19 



10 2 
10210 



10220 
10 230 

10300 

3 

3 1 



30020 
30204 

30 20 6 

3 2 8 

3 2 1 

30212 

302 14 

30 230 

30232 



30236 


30238 


30240 


30242 


30244 


30246 


30248 



PLOT 0, 47+1 : DRAWTD 43-1 , 47+1 : DRfiWTQ 43 

-I , 67+1 : DRAWTO 1 1 7+ I , 67+ I : DR AWTO 117+1 

, 47+1 : DRAWTO 159 , 47+1 : NEXT I 

COLOR 3:F0R 1=1 TO 9 

PLOT 0, 54+1 : DRAWTO 36- I , 54+ I : DRAWTO 36 

-I , 74+1 : DRAWTO 1 24+1 , 74+1 : DRAWTD 124+1 

,54+I:DRAWT0 159 , 54+ I : NEXT I 

COLOR l:FOR 1=1 TO 12 

PLOT 0, 63+1 : DRAWTO 27- I , 63+ I : DRAWTO 27 

-I , 83+1 : DRAWTO 1 33+ I , 83+ I : DRAWTO 133+1 

,63+I:DRAWT0 159, 63+1 : NEXT I 

COLOR 2:F0R 1=1 TO 20 

PLOT , 75+1 : DRAWTO 1 4 , 75+ I s PLOT 159,75 

+ I-.DRAWTO 145, 75+1 : NEXT I 

RETURN 

REM *****PM SETUP***** 

GRAPHICS 7: POKE 1 06 , PEEK ( 1 06 > - 1 6 : GRAPH 

ICS 7: POKE 752,1: REM *****16 PAGE RESE 

RVE***** 

? :7 :? "(9 SPACES > PREP ARE FOR COMBAT" 

POKE 53277, 3: REM *****GRACTL PLAY&MISS 

***** 

POKE 559, 62: REM * * * * * DM ACTL , 1 L I ME , PL AY 

, MIS, NORM FIELD***** 

POKE 54279 , PEEK ( 106) : REM *****PMBASE I 

S NOW RAMTOP***** 

POKE 53256, 3:POKE 53257, 0:POKE 53258,0 

:POKE 53259,0: REM *****PLAY SIZES***** 

POKE 623, 33: REM * * * * * PR I OR I T Y PL OVER 

PF***** 

MYPMBASE = 256 * PEEK i 106 ): REM *****NEW PM 

POKE 704,134:POKE 705,24:FOKE 706,46:P 
OKE 707,54:POKE 1 738 , ( PEEK ( 1 06 ) +4 ) : REM 

*****START OF PM DATA***** 
POKE 7 10, 52: POKE 709, 58: POKE 7 11,29:P0 
K E 7 12, 

REM * * * * * V B L A M K INTERUPT ROUTINE***** 
FOR 1=1536 TO 1706:READ A:POKE I,A:NEX 
T I 

FOR 1=1774 TO 1787:P0KE I,0:NEXT I 
DATA 162, 3, 189, 244, 6, 24 0, 89, 56, 221, 240 
, 6, 240, 83, 14 1 , 254, 6, 106, 141 
DATA 255, 6, 14 2, 253, 6, 24, 169, 0, 10 9, 253, 
6, 24, 109, 252, 6, 133, 204, 133 

DATA 206, 189, 240, 6, 133, 203, 173, 254, 6, 1 
33, 205, 189, 24B, 6, 170, 232, 46, 255 
DATA 6, 144, 16, 168, 177,2 3, 145, 205, 169, 
0, 145, 2 03, 136, 2 2, 2 8, 244, 76, 87 
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30250 

30252 

30254 

30256 

3025S 

30260 
30262 
30276 
30278 

30282 



30283 
30285 



30287 
30299 
30300 

30305 



30309 
30310 



50590 



DATA 6, 
, 203,20 
DATA 17 
, 48, 133 
DATA 10 
9, 252, 6 
DATA 20 
45, 205, 
DATA 16 
6,98,22 
DATA 7, 
S = USR < 1 
PLX=532 
POKE PL 
POKE PL 
FOR I=M 
EAD A:P 
R PLAYE 
DATA 24 
FOR 1=0 
+1 , A: NE 
* * *** 
DATA 20 
REM *** 
FOR I=M 
6+1305: 
DATA 24 
181 , 106 
6, 44,52 
REM *** 
RESTORE 
TO MYPM 
EXT I 
RETURN 



1 61 

, ; 

9, : 
, i : 

5 , 
20 
<?, 
B, 
16 
69 
48 
L, 
L + 
YP 
OK 
R 

t * 

T 

XT 



0, 
>2, 

)4, 



!0 3 



9, 

2 
15 

6 , 



17 

20 

6 , 
4, 

06 
24 

7 , 
10 
16 



7, 
8, 
15 
13 
13 
, 1 
8, 
20 
23 
4, 
0, 



20 
24 
7, 
B, 

89 
6, 
8, 
6, 
16 

0, 



,145, 205, 

, -L/^,-*-vJw', 

40, 6, 189, 
41 , 253, 6 
04, 24, 173 
240, 6, 133 
70, 160, 0, 
48, 174, 25 
, 202, 48,3 



16 
6 



17 



9,0, 145 

6,6, 240 

5 3,6, 10 

7, 203, 1 

6 

6,2,6,7 



!2, 92, 228, 96 



I 



LY=1780:PLL=1784 

POKE PLL+ 1,8: POKE 

26 

ASE+1024 TO MYPMBABE 

I,A:NEXT I : REM ***** 

*** * 

60, 60, 126, 255, 126, 36 

7: READ A: POKE MYPMBA 

:REM *****ATTACKER P 



PLL+2, 26: 



+1032: R 
DEFENDE 

,36 

SE+1280 
LAYER 1 



4, 204, 204, 252, 252, 48, 48, 48 

**EXPLOSION PLAYER 2***** 

YPMBASE+1280+256 TO MYPMBASE+25 

READ A: POKE 1, A: NEXT I 

,36, 80, 52, 90, 52, 105, 93, 170, 237, 

,253, 94, 171, 246, 173, 85, 44, 90, 11 

,44,24,8 

**EXPLOSION PLAYER 3***** 

30305:FOR I =MYPMBASE+ 1 280+5 1 2 
BASE+1305+512: READ A:POKE I,A:N 
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Laser Gunner II 

MHHHHH Gary R. Lecompte 

Version for the Atari by Charles Brannon with revisions by 
Thomas A. Marshall. 



This revised version of "Laser Gunner" mixes machine language and 
BASIC to make a very exciting game. The enhancements include having 
two missiles on the screen simultaneously and smooth animation even as 
the missiles are fired- 

In your corner of the universe, a zone of high-pressure radioactive 
plasma is contained by a platinum-iridium wall. Your ship, 
immersed in the red zone, is charged with a vital duty: defend the 
wall. The vengeful enemies of your civilization send wave after 
wave of attack ships in an effort to breach the wall. These semi- 
smart robot ships will concentrate their firepower on your weakest 
spot and mercilessly try to fire their way into the wall. 

Your only defense is your powerful particle beam which you 
use to fend off the attacking drones. The enemy ships are wary of 
your power, so if you move too close to an attack point, you can 
spook the enemy ship into picking another target. Move to shoot 
at the new position, and it will just cruise back to another vulner- 
able spot. You must not let the enemy blast a hole in the wall 
since, like a balloon stuck with a pin, the radioactive plasma will 
explode, reducing your ship to an expanding shell of iridescent 
particles. 

As the laser gunner, you try to react quickly to your enemy's 
shots. Follow the ship as well as you can, but do not stray too far 
from a weak spot. When you destroy one ship, another will 
appear at a random position, and will home in on a vulnerable 
spot in the wall. 

A Novel Player/Missile Technique 

For a game written in BASIC, "Laser Gunner" is reasonably fast 
and smooth. The smoothness of motion comes from player/ 
missile graphics, but the speed comes from an unusual technique 
that lets you move player/missile graphics at machine language 
speed. 
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A spedal graphics technique is used here. Instead of storing 
the player/missile graphics at the top of memory, a large string is 
dimensioned to hold the player/missile data. When a string is 
dimensioned, a block of memory is reserved for it. The starting 
address of the string can be determined by using the ADR func- 
tion. The problem is that player/missile graphics must start on an 
even IK boundary (the address must be a multiple of 1024), or a 2K 
boundary (divisible by 2048) for single-resolution player/missile 
graphics. Strings are given the next available address when 
dimensioned, which would only be on an even kilobyte address 
by sheer coincidence. 

So when the ADdRess of the string is determined, we must 
find what offset to add to the address to reach the next boundary. 
It can be shown that in worst case conditions (i.e., the address is 
just one byte past a IK or 2K boundary), we must allow for an 
offset of at least 1023 bytes for double-resolution, or 2048 bytes for 
single-resolution P/M graphics. So, although double-resolution 
P/M graphics require only 1024 bytes, we must dimension the 
holding string at least 2048 bytes. Then, a simple calculation (lines 
150-160) will give us the starting address within the string of the 
P/M base address, PMBASE. This value is then used to "set up" 
P/M graphics as usual. 

The advantage of using a string is twofold: one, we know 
that BASIC is covetously protecting the string from the 
"RAMTOP Dragon" (see COMPUTED Second Book of Atari 
Graphics) and other nasties. Second, we can use BASIC'S fast 
string manipulation commands to move segments of strings 
around, scroll a string, erase a string, copy one string to another, 
and more. Since the memory being moved in the string is the P/M 
memory, these manipulations directly modify the players and 
missiles. And since these string operations internally proceed at 
machine language speed, we get fast P/M animation using BASIC. 
Although the code is not as straightforward as dedicated P/M 
commands such as PMMOVE or PMGRAPHICS, it sure beats 
cryptic USR statements. As a matter of fact, since BASIC permits 
such flexibility with strings, it may be the best solution to using 
P/M graphics from BASIC. 

Using Vertical Blank for Smoother Motion 

The original version of Laser Gunner required all other motion to 
stop when missiles were fired. By using a vertical blank interrupt 
routine, continuous and smooth motion can be achieved. 



217 




Advanced Techniques 



The vertical blank (VB) is the time during which the television's 
electron beam is turned off while it returns from the lower-right 
corner of the screen to the top-left. Depending on the graphics 
mode and other interrupts, there are approximately 7980 machine 
cycles available during a single VB. (A machine cycle is the smallest 
measurement of time on your computer's internal clock.) 

Bringing VB into the Picture 

To utilize the VB, we first have to tell the operating system (OS) 
where to go. We do this by performing a Vertical Blank Interrupt 
(VBI) through the Set Vertical Blank Vector (SETVBV) routine. 
Before jumping to the SETVBV, we have to load the least signifi- 
cant byte (LSB) in the Y register and the most significant byte 
(MSB) in the X register of our VB machine language routine. 

Into the accumulator we can place either a 6 or a 7. Six is for 
deferred mode; the OS does its housekeeping operations before it 
executes our code. Seven is for immediate mode; the OS executes 
our code first during the VB. Since we will be checking the colli- 
sion registers, we will be loading a 6 into the accumulator. The 
BASIC program initializes the SETVBV through the USR state- 
ment on line 1460. To return control to the OS, we jump back 
through $E45F. 

The BASIC and the machine language (ML) programs interact 
through several PEEKs and POKEs. The ML program checks the 
STRIG(O), location $0284, for the press of a button, and moves 
both missiles horizontally. Since the player/missile graphics are 
defined in strings, it is easier to have BASIC draw and erase the 
missiles by PEEKing the flags that the ML program sets. 

In the enhanced version, both missiles appear on the screen 
at the same time. This requires the additional coding located at 
$06D7. The missiles are defined as: 



7 


6 


5 


4 


3 


2 


1 






BIT 

M3 M2 Ml MO 

Since it is difficult for Atari BASIC to selectively turn bits off 
and on, we will use ML to change the bits. The AND instruction is 
used to set bits to zero (off). ANDing a bit with zero sets the bit to 
zero. The ORA instruction is used to set bits to one (on). By 
ORAing a bit with one, we set the bit to one. The flipping of the 
missile bits is done in the subroutines at lines 1300-1330. 
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Further Enhancements 

The programming technique of performing graphics movement 
during the vertical blank enhances Laser Gunner almost to the 
level of difficulty of professional arcade games. Further program 
execution speed can be achieved by removing the REMs and 
moving the part of the program that does most of the action to the 
beginning. This shortens the memory that BASIC has to search to 
find line number references. An additional enhancement would 
be to add a sound routine during the VB each time the trigger is 
pressed. 

Laser Gunner II 



REM ■T:V1J:»rtl]:i:iJ:lPK { 1 7 aggBBB } 

1 REM mSHMaSBSEBBSSSSBSSMBBEM MBBM EinnSSSM 

2 REM 1 ■»*--*--*! r--»^M.l;».?.1SIJm=«K 9 aJ:M4-1 } 

3 rem Hs^raa-xn 

4 REM MSBEBBn 

5 REM ■ ggHOaa «=» an.lMJJ .W. B P {10 i-Ui W^ } 

6 REM 



i ihowas R. Marshall 



7 REM ■:iin i L-L lt J^IH^ ^JJ»=K«^fci <:i 1 i.1J;M41> 

10 GOBUB 1400 

20 RESTORE 

100 DIM PM$ (2048) : GRAPHICS 2+16 

110 DIM ALIEN* ( 1 1 ), PLAYER* ( 1 1 ), NULL* ( 1 1 ), EXP 

LDDE*(12*9) , TARGET (20) 
120 FOR 1=1 TO 1 1 : NULL* < I )=CHR* (0) :NEXT I 
130 LEVEL=15: CNT=15: REM DECREASE LEVEL FOR A 

HARDER GAME 
140 A=ADR (PM*) : REM RAW ADDRESS 
150 PMBASE=INT (A/1024) *1024: REM NEAREST 1 K 

BOUNDARY 
160 IF PMBASE<A THEN PMBASE=PMBASE+ 1 024 : REM 

IF BELOW STRING, GO TO NEXT IK BOUNDARY 
170 S=PMBASE-A: REM START OF PMBASE IN STRING 

(OFFSET) 
180 POKE 559,46:REM SET DOUBLE-LINE RES. 
190 POKE 54279, PMBASE/256: REM TELL ANTIC WHE 

RE PMBASE IS 
200 POKE 53277, 3:REM TURN ON PLAYER/MISSILE 

DIRECT MEMORY ACCESS(DMA) 
210 PM*=CHR*(0):PM*(2048) =CHR* (0) : PM* (2)=PM* 

: REM CLEAR OUT ALL P/M MEMORY 
220 POSITION 4,0:? #6;"laser gunner" 
230 ? #6:F0R 1=1 TO 10:? #6;"D":NEXT I:POSIT 

ION 0,0 
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240 


250 


260 


270 


280 


290 


300 


310 


320 


330 


340 


350 


360 


370 


380 


390 


400 


410 


420 


430 



440 
450 
455 



REM STRING POS OF PLAYER 0-3, AND MISSIL 

ES IN STRING: 

P0=S+512: P1=P0+128: P2=P 1+128: P3=P2+128: M 

S=S+384 

PM$ <P2+32)=CHR* (255) : PM* (P2+127) = CHR* (25 

5) :PM* (P2+33, P2+127)=PM*(P2+32):REM CREA 

TE WALL 

PM*(P3,P3+127) = PM* (P2, P2+127) :REM CREATE 

"ZONE" 
POKE 53250, 92:REM POSITION PLAYER 2, THE 

WALL 

POKE 53251, 60:REM POSITION PLAYER 3, THE 

ZONE 
POKE 53258, 0:POKE 53259, 3:REM REM MAXIMU 
M WIDTH 
POKE 706,14:POKE 707,66:REM SET COLOR OF 

PLAYERS 2 AND 3 
DATA 0, 8, 28, 62, 255, 62, 255, 62, 28, 8,0 
FOR 1=1 TO 11:READ A : AL I EN* ( I ) =CHRt ( A) : N 
EXT I:REM PLACE INTO STRING, HENCE INTO 
P/M MEMORY 

AY=32:REM ALIEN VERTICAL LOCATION 
PM* (P1+AY,P1+AY+1 1 ) =ALIEN*: REM PLACE INT 
STRING INTO P/M MEMORY 

POKE 705, 6*16+10: REM SET COLOR OF ALIEN 
TO PURPLE 

POKE 53249, 180: REM SET HORIZNONTAL POSIT 
IN 

POKE 53257, 1 : REM SET ALIEN TO DOUBLE-WID 
TH 

REM SET UP EXPLODE*, USE FOR EXPLOSION O 
F ALIEN 

FOR 1=1 TO 108:READ A : E XPLODE* ( I ) =CHR* ( A 
):NEXT I:REM EXPLODE DATA 

DATA 8, 28, 62, 255, 54, 255,62, 28 , 8 , 8 , 28 , 62 , 
235, 54, 235, 62 , 28 , 8 , 8 , 28 , 54 , 227, 34, 227,54 
,28,8 

DATA 8, 24, 34, 227, 34, 227, 1 8 , 24 , 8 , 8 , 24 , 34 , 
194, 32, 163, 18, 8, 8 

DATA 0, 0, 0, 0, 24, 24, 0,0, 0,0, 0,0, 32, 8, 24, 
, 4, 0, 0, 0, 0, 36, 0,16,0, 36, 0,0, 128, 10,1 28, 
, 16, 0, 16, 65 

DATA 0,9, 0,0, 32, 0,32, 0,8, 0,0,0, 64, 0,0, 64 
,0,4,0,0,0,0,0,0,0, 128, 

RY=INT (78*RND (0) +32) : MH= 1 90+RY *2 : REM ATT 
RACT MODE: 

POSITION 9,5:? #6 ; " PRESS " : POS I T I ON 9,6:? 
#6; "START" 
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460 


FOR 1=32 TO 




: IF I=RY THE 




* ( 12) 


470 


IF I >RY THEN 


480 


IF PEEK(5327 


490 


PMt (MS+RY+10 


500 


FDR 1=110 TO 




) =ALIENt: IF 


510 


IF PEEK (5327 


515 


POSITION 9,5 




9,6:? #6; " €5 


520 


IF PEEK<5327 




53248+1, 0: NE 


530 


DATA 0,0,224 


540 


FOR 1=1 TO 1 




NEXT I 


550 


PY=60:REM SE 


560 


PMt (P0+PY, P0 


570 


PMt (PI ,P1 )=C 




R* (0) : PMt (PI 


580 


AY=INT (78*RN 




=ALIENt: REM 


590 


POKE 53256, 1 


600 


POKE 53248,6 




PLAYER 


610 


POKE 704,26: 


620 


POKE 53260, 1 


630 


ST=STICK (0) : 




UND 0, 100, 0, 


635 


IF PEEK(CMPF 




(0) : POKE CMP 




ACH OTHER 


636 


IF PEEKtCOLF 




900: REM TH 




OR ZONE 


640 


PY=PY- (DIR=1 




0) *F: F=l : REM 


650 


PMt (P0+PY, P0 







660 


IF PEEK(M0FL 




SE THE PLAYE 


670 


IF PEEK(TRIG 




M0FLG, 0: TMS= 




FLG, 1 :REM TH 


720 


IF PEEK(HITF 




SION 


725 


REM THE PLAY 


730 


SCR=SCR+10: P 




5:? #6;5CR 



110:PMt(Pl+I,Pl+I+ll) =ALIENt 
N PMt (MS+RY+10, MS+RY+10) =CHR 

POKE 53253, MH-I*2 
9) >6 THEN NEXT I 
, MS+RY+10) =CHRt (0) 

32 STEP -1 : PMt (Pl+I , Pl+I+1 1 
PEEK (53279) >6 THEN NEXT I 
9) >=7 THEN 450 
:? #6;"C5 SPACES} " : POS I T I ON 

SPACES> " 
9)=3 THEN FOR 1=0 TO 4:P0KE 
XT I:GRAPHICS 0:END 
,48, 120, 63, 120, 48, 224, 0, 
1:READ A: PLAYERt ( I ) =CHRt ( A) : 

T PLAYER'S VERITCAL LOCATION 

+PY+1 1 ) =PLAYERt 

HRt (0) :PMt(Pl+127,Pl+127) =CH 

+2,Pl+127)=PMt(Pl) 

D(0)+32) :PMt(Pl+AY,Pl+AY+ll) 

RESET ALIEN 

: REM PLAYER DOUBLE-WIDTH 

4:REM HORIZONTAL POSITION OF 

REM COLOR OF PLAYER 

:REM MISSILE DOUBLE-WIDTH 

IF STOIS THEN D I R = ST : F = 2 : SO 

8 

LG)=1 THEN PMt (TMS, TMS) =CHRt 

FLG,0:REM THE MISSILES HIT E 

LG)=1 THEN POKE COLFLG,0:GOT 
E ALIEN MISSILE HIT THE WALL 

4)*(PY>32)*F+(DIR=13)*(PY<11 

UPDATE PLAYER 
+PY+1 1 ) =PLAYERt: SOUND 0,0,0, 

G)=l THEN GOSUB 1310:REM ERA 
R'S MISSILE 

FLG)=0 THEN GOSUB 1310:POKE 
MS+PY+5: GOSUB 1300:POKE TRIG 
E TRIGGER WAS PRESSED 
LG)<>0 THEN 790:REM NO COLLI 

ER'S MISSILE HIT THE ALIEN 
OSITION 1 1-LEN (STRt (SCR) ) /2, 
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735 PM* (TMS, TMS) = CHR* (0) : POKE M0FLG,1:POKE H 

ITFLG,1:PDKE 53278,0 
740 AY=AY+1 : P=PEEK (705) : REM PRESERVE COLOR O 

F ALIEN 
750 FOR 1=0 TO 1 1: Z=I*9: PM* ( P 1 +AY , P 1 +AY+9 ) =E 

XPLODE* (Z+l , Z+9) 
760 POKE 705, PEEK<53770> : POKE 53277 , : SOUND 
0, 1*2, 0, 15-1 : FOR W=l TO 2:NEXT W:NEXT I 
770 POSITION 5,5:PRINT #6;"{10 SPACES>":REM E 

RASE SCORE 
7S0 SOUND 0,0,0,0:POKE 705,P:OOTO 570 
790 IF AY=PY THEN 870: REM TOO CLOSE FOR COMF 

ORT 
800 IF TAR6ET=0 THEN BOSUB 950 : TARBET=TARBET 

(INDEX) : REM SELECT A TARBET 
810 IF AYOTARBET THEN 840 
820 CNT=CNT-1:IF CNT THEN 630 
830 CNT=LEVEL:BOTO 870 
840 AY=AY+SBN(TARBET-AY) : REM MOVE TOWARDS TA 

RBET 
850 PM*(P1+AY,P1+AY+11 )=ALIEN* 
860 BOTO 630 

870 IF ABS<AY-PY)<10 THEN BOSUB 970 
875 IF PEEK(ALIEFLB)=0 THEN 630 
880 POKE ALIEFLB, 0: TM 1 S=MS+AY+5 : BOSUB 1320:T 

TAY=AY:BOTO 630 
900 P=ASC(PM*(P2+TTAY+5) ) *2-256:G0SUB 1330:P 
OKE 53278, 0:REM CUT HOLE IN WALL 
IF P<0 THEN 990: REM WALL DESTROYED 
PM* (P2+TTAY+5, P2+TTAY+5) =CHR* (P> 
BOTO 630 

REM PICK A TARGET 

INDEX=INDEX+1 : TARGET (INDEX) =INT (78*RND (0 
) +32) : RETURN 
IF INDEX=1 THEN 950 

TARGET=TARGET ( INT ( INDEXtRND (0) +1 ) ) : RETUR 
N 

REM DESTRUCTION OF PLAYER 
FOR 1=1 TO 100: Zl=TTAY+5+I : Z2=TTAY+5-I 
PM* (TMS, TMS) =CHR* (0) : POKE M0FLG, 1 : POKE 
M0PFLG, 72 

IF ZK126 THEN PM* ( P2 + Z 1 , P2 + Z 1 ) =CHR* ( ) 
IF Z2>30 THEN PM* ( P2+Z2 , P2+Z2 ) =CHR* ( ) 
IF ZK126 OR Z2>30 THEN NEXT I 
FOR 1=30 TO 1 STEP -l:FOR 3=0 TO 20 STE 
P 3:SOUND , J+l , 1 , 8 : POKE 707 , PEEK ( 5377 
0) :NEXT J: NEXT I 
1050 SOUND 0, 0, 0, 0: SOUND 1,0,0,0:POKE 707,14 
:FOR W=l TO 50:NEXT W:POKE 707,0 
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910 


920 1 


930 1 


940 1 


950 


970 


980 

1 


1 

990 1 


1000 


1005 


1010 


1020 


1030 


1040 
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1060 

1070 
1080 
1090 




1329 
1330 

1400 

1410 
1420 
1430 
1440 
1450 
1460 
1500 

1509 
1510 

1520 



104, 169, 6, 170. 160, 22, 32, 92, 228, 96, 

, 72, 1 , 0, 180 

=1558 TO 1709:READ fi:POKE I,A:NEXT 
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1530 
1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 
1640 

1650 

1660 



REM 

DATA 

2,6, 

DATA 

,6, 1 

DATA 

4,27 

DATA 

, 141 

DATA 

08, 2 

DATA 

08, 

DATA 

41, 1 

DATA 

228 

FOR 

I 
REM 
DATA 
216, 
DATA 
,6, 1 
RETU 



MI55ILE MOWING ROUTINE 



173, 132, 2, 201, 0, 240, 2, 208, 12, 205, 1 
240, 12, 169, 0, 141, 10, 6, 240 

58, 205, 12, 6, 240, 53, 238, 13, 6, 238, 13 
73, 13,6, 141,4, 208, 17 3, 8 

208,41 , 2, 208, 9, 173, 13, 6, 201, 190, 14 
, 176, 15, 173, 13, 6, 201 , 170, 144 

18, 169, 0, 141, 30, 208, 141, 11,6, 169, 1 
, 12,6, 169, 72, 141, 13,6, 173 

14, 6, 201, 0, 208, 63, 173, 9, 208, 41,1,2 
1, 173, 9, 208, 41, 12, 208, 29 

206, 16,6, 206, 16,6, 173, 16,6, 141,5,2 
08, 35, 169, 1, 141, 17,6, 141 
i 12,6, 169, 72, 141, 13, 6, 208,5, 169, 1, 1 
5,6, 169, 0, 141, 30, 208, 169 

1, 141, 14,6, 169, 180, 141, 16, 6, 76, 95, 

1=1753 TO 1791:READ A:POKE I,A:NEXT 



FIND- OR ROUTINES 



104, 104 
6, 104, 10 

45, 216, 
33, 212, 1 
RN 



, 104, 141,215,6, 104, 104, 141, 
4, 201, 1,208,9, 173, 215, 6 
6, 76, 249, 6, 173, 215, 6, 13,216 
69, 0, 133, 213,96 



224 



Advanced Techniques 



The Cruncher 



I Andrew Lieberman 



Many longer programs could benefit from this memory-saving technique, 
which saved 7,000 bytes in the music DATA within the author's music 
program. 

Programs are written every day using DATA statements. Often 
the numbers in these statements are for SOUND and PLOT 
commands and happen to be in the range of to 255. Frequently, 
the program loads these numbers into a matrix. This method of 
DATA storage is inefficient; it wastes lots of memory. 

There is, however, a way to solve this problem, and an easy 
way to change already existing programs to a more compact form. 
Using the "Cruncher," I knocked 7K — that's right, 7000 bytes — 
off a music program. It took about 40 minutes, and that includes 
debugging. Many programs can easily be done in half that time. 

Each character on the Atari has an ATASCII value ranging 
from to 255. Look in your BASIC Reference Manual, Appendix C. 
Take, for example, the letter A. Its corresponding number is 65. By 
using this code, we can convert each number (using one to three 
digits) to a single character using only one character. It would be a 
very tedious process if we took each number, looked it up on the 
chart, and then replaced the number in a program with a single 
character. 

That's where the Cruncher comes in. It won't do all of the 
work, but it will do most of it. We can further save memory by 
condensing all of these single characters into one large string 
instead of a matrix. This is the big memory saver: each character in 
a matrix takes about seven bytes, but in a string takes only one. 
So, pull out a program with a lot of numbers and let's get to work. 
(Note: This is not a standard procedure. Your program may 
require modifications of the process of conversion. Read through 
the procedure and think about what you are doing; otherwise, 
you may find yourself hopelessly lost.) 

First, type the following subroutine into your Atari, and LIST 
it to cassette or disk. This way you can load it on top of the 
program to be converted. 
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A=PEEK ( 136) +PEEK ( 137) *256: ? "WHAT 
LINE";: INPUT X:TRAP 32003:GOTO 320 
00 

32000 LI=PEEK (A) +PEEK (A+l ) *256: IF LI 
OX THEN A=A+PEEK (A+2) : GOTO 32 
000 

32001 A=A+1:IF PEEK(A)=90 THEN READ 
D:POKE A,D 

32002 GOTO 32001 

32003 END 

Second, load the program to be converted. Put in a DIM 
statement and DIMension a string, say A$, to the number of 
numbers in the DATA statements. If your program READs the 
DATA and then puts it in a matrix, get rid of the READ state- 
ments. Otherwise, change a routine like this: 

100 FOR 1=1 TO 100:READ A,B:PLOT A,B 
:NEXT I 

to this: 

100 FOR 1=1 TO 100: A=ASC (A* ( I , I ) ) :B= 
ASC (A* ( 1+1 , 1+1 ) : PLOT A.B:NEXT I 



or better yet: 

100 FOR 



OR 1=1 TO 100:PLOT ASC(A*(I,I)) 
ASC ( A* ( 1+1 , 1+1 ) ) : NEXT I 

If your program handles the DATA in a different way, then it's up 
to you to figure out the rest of that part on your own. 

Now we are almost ready to convert the DATA. Before we 
can put the characters into A$, we must have an A$. It is already 
DIMensioned, but we must add space for the characters in the 
program. Get an idea as to approximately how many numbers 
are to be converted, say 200. Then type something like this into 
your program: 

50 A*(1,50)="ZZZZZZZZZZZZZZZZZZZZZZZ 

ZZZZZZZZZZZZZZZZZZZZZZZZZZZ" 
52 A* (51, 100)="ZZZZZZZZZZZZZZZZZZZZZ 

ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ" 
54 A* (101, 150)=" ZZZZZZZZZZZZZZZZZZZZ 

ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ" 
56 A* ( 151 , 200) =" ZZZZZZZZZZZZZZZZZZZZ 

ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ" 
58 A* (201, 225)=" ZZZZZZZZZZZZZZZZZZZZ 

ZZ" 

It doesn't hurt to put in some extras; you can always take them 
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out later. To easily duplicate a line, just type it, press RETURN, 
move the cursor back to the line number, change it, and press 
RETURN. (Note: You must use capital Z's.) Once you have done 
this, type RUN. Tell the computer what line your Z's start at (in 
our sample, 50). Now, wait while the computer figures everything 
out. When READY appears, LIST the program and see what 
happens. Voila\ The Z's now look like a lot of garbage! 

Fourth, and last, get rid of any extra Z's and delete line 0, 
lines 32000 to 32003, and all of the numerical DATA statements. 
Now type RUN and watch your program run faster than ever. Sit 
back and say to yourself, "Gee, that was easy. What program 
should I fix next?" 

The Mystery Revealed 

For those of you who would like to know how this program 
works, I will explain it step by step. The first thing the computer 
does is find out where the program is stored in RAM. By PEEKing 
addresses 136 and 137, the Cruncher finds out the first address of 
the program. The TRAP is so that when the computer is out of 
DATA, it ENDs without an error. 

Next, the computer finds line X. The first three bytes of each 
line give very important information. The first two tell the line 
number, and the third tells the length. To check if we are at line X, 
we first find out at which line we are. If LI isn't equal to X, we 
must advance the pointer to the next line. We do this by adding 
the length of the line to our original number and trying again. 

Now the conversion process begins. A loop begins that 
checks each address to see if it is 90, or a Z. If it is, the program 
READs a piece of DATA and POKEs it into the program. We then 
loop back and continue the process. When we run out of DATA, 
the TRAP is sounded and the program ENDs. 
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PEEK and POKE 
Alternatives 



I Jerry White 



This tutorial shows a quick and easy way to select random numbers using 
PEEK and POKE to increase speed. The technique is also demonstrated as 
an alternative to the SOUND command. 

When writing a BASIC program, it is often necessary to find the 
fastest possible method to achieve a desired result. When speed is 
important, a machine language subroutine is usually the best 
alternative. In many cases, however, using PEEK and POKE 
instructions instead of conventional routines can significantly 
increase the speed. 

In each of the four example routines below, RAM location 540 
is used as a timer. The term jiffy is used to denote 1/60 second. 
Location 540 counts backwards until it reaches zero. When the 
number 255 is POKEd into this location, it will take 4% seconds to 
count back to zero. 

Each routine begins with a GRAPHICS command to clear 
the screen. You might want to try mode 2 later on to see how the 
elapsed time of each routine is affected. Standard text mode was 
chosen so the routines could be listed on the screen and the 
elapsed time displayed. 

Time tests 1 and 2 show two ways to select a random number 
between and 255. The first method is the conventional way. For 
demonstration purposes, the random number was selected ten 
times. 

The second listing provides an alternative method which is 
four times faster. Our number is selected with a PEEK at location 
20. This is also a jiffy counter, but unlike location 540, this one 
counts forward until it reaches 255. It is then reset to and 
continues counting normally. This method of selection is only 
useful when a single random number is required. For example, to 
return a decision on a 50 percent probability, check location 20 for 
less than, or for equal to, 127. This method would not be effective 
if more than one number is needed within a short period of time. 
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It is, however, an excellent alternative in most cases, and is much 
faster than the conventional method because the multiplication is 
eliminated. 

To obtain a truly random integer between and 255, PEEK 
location 53770. Try the following one-line program to see the 
random number generator in action: 

10 ? PEEK (53770) : GOTO 10 

Time test routines 3 and 4 loop through the 256 pitches of 
Atari's undistorted sound. Test 3 uses the conventional SOUND 
command. The execution time was 123 jiffies, or just over two 
seconds. Test 4 uses the POKE command. The difference was 
17/60 second. 

There are many situations where the PEEK and POKE 
commands can be used to speed up your BASIC programs. There 
are also things that could not be done at all in Atari BASIC were it 
not for PEEK and POKE. 

Atari BASIC Time Test 1 

5 GRAPHICS 0:LIST 

10 POKE 540,255:FOR TEST=1 TO 1 : X=RND ( ) *25 

6:NEXT TEST : T I ME=PEEK < 540 ) 
20 PRINT :PRINT " T I ME= " ; 255-T I ME ; " 60th of a 
second. " 

TIME=16 60ths of a second 

Atari BASIC Time Test 2 

5 GRAPHICS 0:LIST 

10 POKE 540,255:FOR TEST=1 TO 1 : X=PEEK ( 20 > : 

NEXT TEST: TIME=PEEK (540) 
20 PRINT :PRINT " T I ME= " ; 255-T I ME ; " 60th of a 
second . " 

TIME=4 60ths of a second 

Atari BASIC Time Test 3 

5 GRAPHICS 0:LIST 

10 POKE 540,255:FOR TEST=0 TO 255:SOUND 0,TE 

ST, 10, 2: NEXT TEST : T I ME=PEEK ( 540 ) 
20 PRINT :PRINT " T I ME= " ; 255-T I ME ; " 60th of a 
second . " 

TIME=123 60ths of a second 
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Atari BASIC Time Test 4 

5 GRAPHICS 0:LIST : SOUND 0,0,0,0:POKE 53761, 

162 
10 POKE 540, 255: FOR TEST=0 TO 255: POKE 53760 

,TEST:NEXT TEST : T I ME=PEEK < 540 ) 
20 PRINT :PRINT " T I ME= " ; 255-T I ME ; " 60th of a 
second. " 

TIME=106 60ths o-f a second 
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1200 Memory Map: 

An Initial Examination 

■■■■■B^H Ian Chadwick 

Although a short-lived product on the commercial market, the 
Atari 1200XL managed to make it into quite a few homes before 
the line was dropped to make way for the new line. Not that the 
1200 was a bad product; it simply lacked several competitive 
features, such as expansion capability. 

Compatibility with software written for 400 and 800 
machines is possible only if the programs obeyed the rigid restric- 
tions of the official operating system routines, laid out in the Atari 
technical manuals. Much software makes direct jumps into the 
OS that cause programs to crash when run on the 1200. BASIC 
programs usually work, but there may be difficulty with PEEK, 
POKE, and USR routines. 

The following material is all taken from official Atari releases, 
including the technical notes for the 1200XL. Memory locations 
can be cross-referenced with the description in COMPUTEI's 
Mapping the Atari when they are described as moved. This is the 
location these routines or locations have been moved to in the 
1200, but they still perform the same function as in the 400 or 800. 
I have tried to provide all known ranges of values and proper 
explanations, usually taken from the rare 1200XL technical 
manual but not available in most outlets. I suggest that you try 
POKEing different values in these locations to see the results. 

The format attempts to follow that of Mapping the Atari as 
closely as possible. References to 400/800 memory use relate 
directly to the Revision B ROMS, not always earlier versions. I 
trust it will prove a useful guideline for 1200 owners. 

DECIMAL HEX LABEL 

00 00 LNFLG 

Reserved for in-house debugging routines. 
400/800 use: LINZBS; used in power-up sequence. 

01 01 NGFLAG 

Reserved for power-up self-testing routines. 
400/800 use: see location 00. 
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28 1C ABUFPT 

Reserved for OS use, most likely as a buffer pointer. 
400/800 use: PTIMOX moved to 788 ($314). 

29 ID ABUFPT 

Reserved for OS use. 

400/800 use: PBPNT, moved to 734 ($2DE). 

30 IE ABUFPT 

Reserved for OS use. 

400/800 use: PBUFSZ, moved to 735 ($2DF). 

31 IF ABUFPT 

Reserved for OS use. 

400/800 use: PTEME now deleted. 

54 36 LTEMP 

Temporary buffer for loader routine. The technical notes contain 
extensive information about enhancements to the peripheral 
handling in the 1200. One inclusion is a relocating loader, used to 
upload peripheral handlers through the SIO. Of particular impor- 
tance are the two additional device inquiries (polls) to the 1200XL. 
See the 1200XL Operating System Manual for more information. 
400/800 use: CRETRY, moved to 668 ($29C). 

55 37 LTEMP 

Same as above. 

400/800 use: DRETRY, moved to 701 ($2BD). 

74 4A ZCHAIN 

Temporary storage for handler loader. 
400/800 use: CKEY, moved to 1001 ($3E9). 

75 4B ZCHAIN 

Same as above. 

400/800 use: CASSBT, moved. Official sources put this, as well as 

CKEY, above, at 1001. 1 suspect it is at 1002 ($3EA) instead. 

96 60 FKDEF 

Function key definition table pointer, low byte. You can redefine 
the function keys alone, by setting up an eight-byte table for the 
keys Fl to F4 and SHIFT Fl to SHIFT F4. You then assign each 
byte a value (the internal code: see "Reading the Keyboard 
Codes" and Appendix A) to correspond to the key. This way, you 
can get the function keys to act as any other keys. You must, 
however, make sure that you do not assign to the function keys 
their own value (138 to 141, $8 A to $8D). That is, you must not 
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make Fl perform Fl (138, $8A); otherwise you will generate an 
endless loop in which the system goes to check what the key 
should be, sees it is the same, returns, sees there is a table to 
check, goes back, etc. See locations 121, 122, ($79, $7A) for infor- 
mation on redefining the keyboard. 
400/800 use: NEWROW, moved to 757 ($2F5). 

97 61 FKDEF 

Same as above, high byte. 

400/800 use: NEWCOL, moved to 758 ($2F5). 

98 62 PALNTS 

Flag for PAL or NTSC version display handler. This was previ- 
ously at 53268 ($D014). 
400/800 use: NEWCOL, second register, moved to 759 ($2F6). 

121 79 KEYDEF 

Pointer to key definition, low byte. You can redefine almost the 
entire keyboard on the 1200XL by setting up a 192-byte table and 
POKEing the address in these two bytes. When you press a key, 
the system will respond with the new definition you have 
given it. 

The table consists of three 64-byte portions: lowercase keys, 
SHIFT + key, CTRL + key. Each key corresponds to a byte as 
below: 



DEC/HEX 


KEY 


DEC/HEX 


KEY 


00/00 


L 


17/11 


HLP 


01/01 


J 


18/12 


C 


02/02 


/ 


19/13 


F3 


03/03 


Fl 


20/14 


F4 


04/04 


F2 


21/15 


B 


05/05 


K 


22/16 


X 


06/06 


+ 


23/17 


Z 


07/07 


* 


24/18 


4 


08/08 


O 


25/19 




09/09 




26/1A 


3 


10/0A 


P 


27/1B 


6 


11/0B 


u 


28/1C 


ESC 


12/0C 


RET 


29/1D 


5 


13/OD 


I 


30/1E 


2 


14/OE 


- 


31/1F 


1 


15/OF 


= 


32/20 


f 


16/10 


V 


33/21 


SPA< 
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DEC/HEX 


KEY 


DEC/HEX 


KEY 


34/22 




49/31 




35/23 


N 


50/32 





36/24 




51/33 


7 


37/25 


M 


52/34 


BACKS 


38/26 


/ 


53/35 


8 


39/27 


logo key 


54/36 


< 


40/28 


R 


55/37 


> 


41/29 




56/38 


F 


42/2A 


E 


57/39 


H 


43/2B 


Y 


58/3A 


D 


44/2C 


TAB 


59/3B 




45/2D 


T 


60/3C 


CAPS 


46/2E 


W 


61/3D 


G 


47/2F 


Q 


62/3E 


S 


48/30 


9 


63/3F 


A 



Note that there are intentional blanks in the table where no key 

correspondence exists. Using the table above, to redefine the A 

key, you would change the 63rd byte in each of the three contig- 
uous parts: the first to redefine the lowercase, the second for the 

SHIFTed key, and the last for the CTRL and key. 

You may place any value between and 255 ($FF) in these 

bytes; values between and 127 ($7F), 146 and 255 ($92 to $FF) are 

the ATASCII codes. The following values have special meanings 

to the 1200XL: 

DEC/HEX USE: 

128/80 Ignored as invalid key combination. 

129/81 Turns the keys to inverse output (normal becomes 

black on colored screen) . 

130/82 Upper/lowercase toggle. 

131/83 Uppercase lock. 

132/84 Control key lock. 

133/85 End of file. 

134/86 to 136/88 are ATASCII code. 

137/89 Toggles keyboard click on or off. 

138/8A Function one; that use defined by the function key 

description. 

139/8B to 141/8D are functions two, three, and four, respectively. 

142/8E Cursor to home (upper-left corner of the screen). 

143/8F Cursor to bottom left-hand corner of the screen. 

144/90 Cursor to the left margin, beginning of the phys- 

ical line. 



236 



Beyond BASIC 



145/91 Cursor to the right margin, end of the physical 

line. 

See locations 96, 97 ($60, $61) for redefining the function keys 
alone, without redefining the rest of the keyboard. You cannot 
redefine the following keys, since they are either hardwired into 
the system or operate as a special case: 

BREAK, SHIFT, CTRL, OPTION, SELECT, START, RESET, HELP, 
CTRL-1, CTRL-F1 to CTRL-F4. 

400/800 use: ROWINC, moved to 760 ($2F8). 

122 7A KEYDEF 

Same as above, high byte. 

400/800 use: COLINC, also called CLINC, moved to 761 ($2F9). 

563 233 LCOUNT 

Temporary counter for loader register. See section 5.0 in the 
1200XL Operating System Manual for information concerning the 
relocatable loader routine. 
400/800 use: SPARE, not used. 

568,569 238,239 RELADR 

Relocatable loader routine address pointers. 
400/800 use: same as above. 

581 245 RECLEN 

Loader routine variable register. 
400/800 use: same as above. 

583-618 247-26A 

Reserved for future use. 

400/800 use: LINBUp now deleted from the OS. 

619 26B CHSALT 

Character set pointer, defines which character set is to be called 
into use at the next toggle of the CTRL-F4 keys. Initialized to 204 
($CC) to point to the international set. 
400/800 use: see location 583 ($247). 

620 26C VSFLAG 

Fine scroll temporary register. 
400/800 use: see location 583 ($247). 

621 26D KEYDIS 

Keyboard disable register. POKE with to enable keyboard use, 
255 to disable it. Remember that you can reenable keyboard use 
from the keyboard by pressing CTRL + Fl. You may also disable 
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the keyboard with the same combination. LED 1 will be on when 

the keyboard is disabled. 

400/800 use: see location 583 ($247). 

622 26E FINE 

Flag for fine scroll enable in GR. (text) mode. POKE with 255 for 
fine scrolling, for coarse scrolling. Follow this POKE with a GR.O 
command or an OPEN command for device E:. The display list 
created for fine scrolling will be one byte larger than the normal, 
coarse scroll list. The OS also places the address of a DLI (display 
list interrupt) at VDSLST (512, 513; $200, $201). The color register at 
53271 ($D017) is also altered for the last visible line on the screen. 
400/800 use: see location 583 ($247). 

648 288 HIBYTE 

Register for loader routine. 

400/800 use: CSTAT, deleted from OS use. 

654 28E NEWADR 

Loader routine register, same as above. 
400/800 use: reserved (spare). 

668 29C CRETRY 

Moved from 54 ($36). 

400/800 use: TMPX1, now deleted. 

701 2BD DRETRY 

Moved from 55 ($37). 

400/800 use: HOLD5, now deleted. 

713,714 2C9,2CA RUNADR 

Register for loader routines. 
400/800 use: spare. 

715,716 2CB,2CC HIUSED 

Same as above. 
400/800 use: spare. 

717,718 2CD,2CE ZHIUSE 

Same as above. 

400/800 use: spare. 

719,720 2CF,2D0 GBYTEA 

Same as above. 
400/800 use: spare. 

721,722 2D1,2D2 LOADAD 

Same as above. 
400/800 use: spare. 
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723,724 2D3,2D4 ZLOADA 

Same as above. 
400/800 use: spare. 

725,726 2D5,2D6 DSCTLN 

Disk sector size register. The 1200XL establishes sector size at 128 
($80) bytes at power-up or reset, but you can alter the size to any 
length from 1 to 65536 ($FFFF) bytes. You can also write to the disk 
without write-verify by using the command "P". 
400/800 use: spare 

727,728 2D7,2D8 ACMISR 

Reserved, purpose unknown 
400/800 use: spare. 

729 2D9 KRPDEL 

Keyboard auto-key delay rate; the time lapsed before the auto-key 
repeat begins. Default is 48. POKE with the number of VBLANK 
intervals before the repeat begins; each VBLANK is 1/60 of a 
second, so a value of 60 would equal a one-second delay. 
400/800 use: spare. 

730 2DA KEYREP 

Keyboard auto-key rate. Default is six, which gives a rate of ten 
characters per second. POKE with the number of VBLANK inter- 
vals before a keystroke is repeated; at one, you will get 60 charac- 
ters per second repeat rate! See the 1200XL Operating System 
Manual for information concerning the difference between NTSC 
(North American) and PAL (English) system rates (NTSC has a 
1/60 rate, PAL 1/50). 
400/800 use: spare. 

731 2DB NOCLIK 

Key click disable; POKE with 255 to disable, to enable. In the 
older machines, the only way to properly disable the click was to 
install an on/off switch. You may also use the CTRL-F3 keys to 
toggle keyboard click on and off. 
400/800 use: spare. 

732 2DC HELPFG 

Hag for the HELP key enable. POKE with to clear it. When 
PEEKed, 17 = HELP key pressed, 81 = SHIFT + HELP pressed, 
and 145 = CTRL + HELP pressed. HELPFG is not cleared after the 
HELP key has been pressed once. You must clear it yourself under 
program control. 
400/800 use: spare. 
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733 2DD DMASAV 

DMA state save register. This saves the screen graphics state 
when you disable the screen (CTRL-F2) for faster calculations. 
400/800 use: spare. 

734 2DE PBPNT 

Moved from 29 ($1D). 
400/800 use: spare. 

735 2DF PBUFSZ 

Moved from 30 ($1E). 
400/800 use: spare. 

745 2E9 HNDLOD 

Loader routine handler flag. 
400/800 use: spare. 

746-749 2EA-2ED DVSTAT 

These four device status registers are also used by the 1200XL to 

contain information sent back to the computer by the peripheral 

after a type three or four poll (these are new poll types; see the 

1200XL Operating System Manual). The bytes will contain, in order: 

746: Low byte of the handler size, in bytes (must be an even 

number). 

747: High byte of the handler size. 

748: Device SIO (serial I/O) address to be used for loading. 

749: Peripheral revision number. 

756 2F4 CHBAS 

Character set select, as in the 400/800. Default is 224 ($E0) for 
domestic set; POKE with 204 ($CC) for the international set. 
When you press CTRL-F4, the value in CHBAS is swapped with 
that in CHSALT (619; $26B). If you want to select the international 
set for the next toggle, POKE 200 ($C8) here, rather than 204 
($CC). According to the 1200XL Operating System Manual, the OS 
tests CHBAS and if it finds 200 in that location, swaps the value 
with that in CHSALT, usually 204. When the international char- 
acter set is toggled, LED 2 is lit. 

757 2F5 NEWROW 

Moved from 96 ($60). 
400/800 use: spare. 

758,759 2F6,2F7 NEWCOL 

Moved from 97, 98 ($61, $62). 
400/800 use: spare. 
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760 2F8 ROWINC 

Moved from 121 ($79). 
400/800 use: spare. 

761 2F9 COLINC 

Moved from 122 ($7A). 
400/800 use: spare. 

782 30E JMPERS 

Option jumpers, designed to tell the OS how the system is config- 
ured. Only Jl (Bit 0) has been assigned. If Bit equals zero (low), 
then the self- test will run. Bits 1-3 are reserved for future use, bits 
4-7 are unused. 

400/800 use: ADDCOR, deleted. 

788 314 PTIMOT 

Moved from 28 ($1C). 

400/800 use: TEMP2, moved to 787 ($313). 

829 33D PUPBT1 

Power-up and reset register one. 
400/800 use: reserved (spare). 

830 33E PUPBT2 

Power-up and reset register two. 
400/800 use: reserved (spare). 

831 33F PUPBT3 

As above, register three. 
400/800 use: reserved (spare). 

1000 3E8 SUPERF 

Screen editor register. 
400/800 use: reserved (spare). 

1001 3E9 CKEY 

Moved from 74 ($4A). 
400/800 use: reserved (spare). 

1002 3EA CASSBT 

Moved from 75 ($4B). 
400/800 use: reserved (spare). 

1003 3EB CARTCK 

Cartridge checksum. Likely the way the system ascertains the size 
(8K or 16K) of a cartridge when in place. 
400/800 use: reserved (spare). 
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1005-1016 3ED-3F8 ACMVAR 

Reserved for OS variables. On power-up and coldstart, variables 
from 1005 to 1023 ($3ED to $3FF) are set to zero. On warmstart or 
reset, they are not changed. 
400/800 use: reserved (spare). 

1017 3F9 MINTLK 

Same as above. 

400/800 use: reserved (spare). 

1018 3FA GINTLK 

Cartridge interlock register. 
400/800 use: reserved (spare). 

1019,1020 3FB,3FC CHLINK 

Handler chain. 

400/800 use: reserved (spare). 

1792-7419 700-1CFB .... 

Used by DOS when loaded, otherwise available as user RAM. 
39967-40959 9C1F-9FFF .... 

Display list and screen RAM. This will get moved to lower 
addresses if the cartridge is 16K (using up the memory from 32768 
to 49151; $8000 to $BFFF). The normal 8K cartridge uses RAM 
between 40960 and 49151 when installed ($A000 to $BFFF). Two 
control lines tell the system a cartridge is installed. 

49152-52223 C000-CBFF 

OS ROM. In the 400/800, the block from 49152 to 53247 ($C000- 
$CFFF) was unused and unusable. Many of the interrupt handler 
routines have been moved into this block now, the reason for the 
incompatibility with 400/800 programs which jump to the old 
locations rather than to official vectors in RAM. 

The bytes between 49152 and 49163 ($C000-$C00B) contain 
identification and checksum data for the ROM between 49152 and 
57343 ($DFFF) using the following format: 
DEC/HEX USE: 
49152/C000 Checksum low byte; sum of all of the bytes in 

ROM except the checksum bytes themselves. 
49153/C001 Checksum high byte. 
49154/C002 Revision date, using the form DDMMYY, where 

each four bits is a BCD digit. The byte has two 

four-bit numbers for Dl and D2 in the upper and 

lower halves, respectively. 
49155/C003 Revision date, month code, Ml and M2. 
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49156/C004 Revision date, year code, Yl and Y2. 

49157/C005 Option byte, reserved . Contains zero for the 1200XL. 

49158/C006 Part number, using the format AANNNNNN, 

where A is an ASCII character and N is a four bit 

BCD digit. This byte is Al. 
49159/C007 Part number, A2. 
49160/C008 Part number, Nl and N2. 
49161/C009 Part number, N3 and N4. 
49162/C00A Part number, N5 and N6. 
49163/C00B Revision number. 

52224-53247 CCOO-CFFF CHARSET2 

International character set, one of two in the 1200. The other is at 
the same place as in the 400/800; 57344-58367 ($E000-$E3FF). 

53248-53503 D000-D0FF GTIA 

GTIA and graphics registers, as in the 400/800. The self- test code 
is physicaUy located between 53248 and 55295 ($D000 to $D7FF) 
but moved to 20400 to 22527 ($5000 to $57FF) when called up. 

53504-53759 D100-D1FF .... 

Unused in both 400/800 and 1200 versions. 
53760-54015 D200-D2FF POKEY 

POKEY registers, same as in the 400/800. 
54016-54271 D300-D3FF PIA 

PI A registers, same as in the 400/800. 
54017 D301 PORTB 

Used to control the LEDs and the memory management, enabling 
you to disable the OS ROM and enable the RAM. Bit controls 
location 49152-53247 ($C000-$CFFF) and 55296-65535 ($D800- 
$FFFF). When set to zero, the OS is replaced by RAM. However, 
unless another OS has been provided, the system will crash at the 
next interrupt. Bit 7 controls the RAM region 20480-22527 ($5000- 
$57FF) and is normally enabled (set to one). If disabled (set to 
zero), then the OS ROM is enabled, the memory access remapped 
and access provided to the self -test code physically present at 
53248-55295 ($D000-$D7FF). If LED 1 is on, then the keyboard is 
disabled. If LED 2 is on, then the international character set is 
selected. 

400/800 use: PIA PORTB. Since there are only two controller jacks 
(PORTA), this is no longer used in the 1200, meaning only two 
game controllers may be attached at once, rather than four. 
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54272-54527 D400-D4FF ANTIC 

ANTIC registers, same as in 400/800. 
54528-55295 D500-D7FF 

Unused in both 400/800 and 1200 versions of the OS. Any access 
read or write in the 54528 to 54783 ($D500 to $D5FF) range enables 
the cartridge control line CCNTL in the cartridge interface as in 
the 400/800. 

55296-57343 D800-DFFF FP 

Floating point package as in the 400/800. The 1200XL corrects a 
bug in the FP package which was in the REV B ROMs. You now 
get an error status when you try to calculate the LOG or LOG10 of 
zero. 

57344-58367 E000-E3FF CHARSET1 

Domestic character set, as in the 400/800. The international char- 
acter set location is listed above. This is the default set. Register 
756 ($2F4) defines which is in use (see above). 

58368-65535 E400-FFFF OS 

OS ROMS. There are many changes in the 1200 OS, making it 
quite different from the 400/800 OS, but advertised entry points 
and vectors have been left the same. There are five new fixed 
entry point vectors which have been added to the 1200XL: 
58496/E480 JMP PUPDIS: entry to power-on display. 
58499/E483 JMP SLFTST: entry to the self-test code. 
58502/E486 JMP PHENTR: entry to the handler, uploaded from 
peripheral or disk. 

58505/E489 JMP PHULNK: entry to uploaded handler unlink. 
58508/E48C JMP PHINIS: entry to uploaded handler initializa- 
tion. 

58481 E471 

The Atari 400/800 had a blackboard mode; the Memo Pad mode 
you saw when typing BYE in BASIC. This no longer exists on the 
1200XL; it has been replaced by the noninteractive Atari advertise- 
ment logo. 

Bytes from 65518 to 65529 ($FFEE to $FFF9) contain checksum 
and identification for the ROM block 57344 to 65535 ($E000 to 
$FFFF) in a similar format to that at location 49152 ($C000). The 
bytes used are as follows: 
DEC/HEX USE 

65518/FFEE Revision date Dl and D2. 
65519/FFEF Revision date Ml and M2. 
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65520/FFFO Revision date Yl and Y2 . 

65521/FFF1 Option byte; hardware product identifier; for the 

1200XL it should read one. 
65522/FFF2 to 65526/FFF6 Part number using the form 

AANNNNNN. 
65527/FFF7 Revision number. 
65528/FFF8 Checksum byte, low byte . 
65529/FFF9 Checksum byte, high byte . 

Bytes from 65530 to 65535 ($FFFA to $FFFF) contain power-on, 
RESET, NM, and IRQ vectors. 

65521 FFF1 .... 

If you PEEK here, you should get one and then 65527 ($FFF7) will 
have the revision number. If not one, then the product code will 
be here and 65527 will contain the OS revision number. This iden- 
tifies the OS as that of the 1200XL. Accordingly, if you PEEK 65527 
and 65528 ($FFF7, $FFF8) and get 221 ($DD) and 87 ($57) respec- 
tively you have the 400/800 Revision A ROMS. If you get 243 ($F3) 
and 230 ($E6), you have the Revision B ROMS. PAL versions will 
read 214 ($D6) and 87 ($57), 34 ($22) and 88 ($58) respectively. If 
location 64728 ($FCD8) is not 162 ($A2) then the product is a 
1200XL or future computer. 

New Graphics Modes 

Four new graphics modes are available on the 1200 from BASIC: 
GRAPHICS 12, 13, 14, and 15. These are the same as modes 
described in the technical manuals but previously unavailable in 
BASIC. 

GRAPITICS 12 is ANTIC mode 4, a four-color mode (plus 
background). Each character on the screen is the same size as a 
GRAPHICS character but only four pixels are displayed instead 
of eight as in GRAPHICS 0. It can be well used by a redefined 
character set. The screen has 20 lines; to obtain the full 24 lines, 
use GRAPHICS 12 + 16. 

GRAPHICS 13 is ANTIC mode 5, another four-color mode 
(plus background), this time with characters double the physical 
space of the GRAPHICS characters. As in GRAPHICS 12, only 
four pixels are displayed; the system interprets definition in the 
character sets by bit pairs, rather than single bits as in GRAPHICS 
0. The screen has ten lines and can be expanded to 12 by 
GRAPHICS 13 + 16. Both GRAPHICS 12 and GRAPHICS 13 use 40 
bytes of screen RAM per line. 
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In both GRAPHICS 12 and GRAPHICS 13, the color of the 
screen pixel depends on the bit pair in the byte addressed. Each 
character can be built of eight bytes like the GRAPHICS charac- 
ters, but bits are paired for screen presentation. If the bits have the 
value below, then the color shown appears on the screen: 
VALUE/BINARY COLOR 

0/00 BAK 

1/01 PFO 

2/10 PF1 

3/11 If Bit 7 of the character = (the color 

modifier), then PF2 is used, else 
if Bit 7 = 1, then PF3 is used. 

GRAPHICS 14 is ANTIC mode 12 ($C), a two-color mode 
with a resolution of 160 pixels wide by 192 pixels high. This is 
sometimes called GRAPHICS "6V2" because each line is one scan 
line high where GRAPHICS 6 is two scan lines high. Colors used 
are BAK and PFO. Only the first bit of a screen byte is used to 
identify the color. 

GRAPHICS 15 is ANTIC mode 14 ($E), known as GRAPHICS 
"7¥i" and used in many popular commercial programs such as 
Datasoft's Micropainter. It is a four-color mode with a resolution of 
160 across by 192 down, each mode line being one scan line high. 
Colors used are BAK and PFO to PF2. Only the first two bits in a 
screen byte are used to identify the color of the byte. 

Data for New Screen Modes 











Memory Used: 


Mode 


Horizontal 
Line 


Vertical 
Line 


Colors 


Split 
Screen 


Full 
Screen 


12 
13 
14 
15 


40 
40 
160 
160 


20/24 

10/12 

160/192 

160/192 


5 
5 
2 
4 


1154 
664 
4270 
8112 


1152 
660 
4296 
8138 



Final Notes 

If you have a copy of Mapping the Atari, you may find it useful to 
make a note in the margins of the new locations of interrupt and 
other routines as defined by the vectors. Most of these are located 
between 512 and 1151 ($200 to $47F). These new pointers will show 
you where routines have been moved in the 1200. 
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A small one-pixel shift in the 1200's display may cause some 
programs to show different colors (particularly artifact colors in 
GRAPHICS 8) than they do on the 400/800. Colors (but not 
graphics modes) now conform to those displayed by the earlier 
CTIA chip. 

Some Revision B enhancements which are also in the 1200XL 
should be mentioned. First, the display handler will not clear 
memory beyond that indicated by RAMTOP (location 106; $6A). 
This means you can store data or machine language routines 
above the graphic display and have them remain intact when 
changing graphics modes. Second, you can assign a printer 
number from PI up to P8. The printer handler inserts an EOL in 
the printer buffer if none is there, before sending the buffer to the 
printer on a CLOSE. This allows the printer to immediately print 
the last line, rather than having to force it to do so. The CIO places 
an EOL in the input buffer when a record longer than the buffer 
size is being read. This allows you to still read a portion of a 
record even if a large enough buffer was not provided. Finally the 
screen clear code will work no matter what the cursor coordinates 
are. 

If at all possible, try to obtain a copy of the 1200XL Operating 
System Manual. Much of what is vague here is explained there. 
There are many other, more subtle and technical differences 
between 400/800 use and 1200XL use. These are best explained in 
Atari's own manuals. The manual also contains instructions on 
how to redefine the Atari keyboard as a Dvorak layout and define 
GRAPHICS 12 and 13 characters, and it gives specific information 
on the new peripheral poll types and their use. 
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Merging Machine 
Language into BASIC 



Fred Pinho 



Merging machine language subroutines can be a time-consuming task. 
The program offered here will allow you to add machine language to a 
BASIC program as a string or as DATA statements. 

You've just bought your Assembler Editor cartridge, and you're 
starting to get into machine language programming. Hold it, 
before you go any further. If you haven't already heard, your 
assembler manual is chock full of errors. Run, don't walk, to the 
Atari hot line to request their errata sheets. It will save you grief 
and headaches, especially if you are cassette dependent. 

After writing and debugging your first machine language 
program with your Assembler Editor cartridge, you can now save 
it to cassette or disk as a binary file. You can also load it back into 
the computer and run the machine language program directly. But 
what if you want to combine this routine with a BASIC program? 
This is the objective of a majority of beginning machine language 
programmers. If you look on pages 66-67 of the Assembler Editor 
manual, you will find a merger program. However, the program is 
clumsy and unwieldy, especially in its handling of problem code 
values (such as the one which is the ATASCII equivalent of quota- 
tion marks). 

To overcome this problem, I've provided Program 1. This 
program will take your machine language and automatically 
convert it into a complete BASIC subroutine. This can then easily 
be added to your BASIC program. The subroutine is complete 
within itself. It requires only: 

• That your program have line numbers no greater than 
31000. 

• That you call the subroutine as early as possible in your 
program. 

This will allow you to reuse the subroutine variables in your 
program if you wish. Also the DIMension statements will be 
declared at the start of the program. 
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four Options 

This utility program has a great deal of flexibility built-in. You can 
choose to store your machine language in a variety of ways: 

• As strings (probably the safest and most versatile method). 
The program will automatically generate the strings plus the 
DIMension statements to support them. It also will take 
care of the troublesome codes of 34 (ATASCII for quotes) 
and 155 (ATASCII for RETURN). 

• Storage at a specific location in memory. The location can be 
the same as specified in your binary file or it can be 
changed. The program will then generate a series of DATA 
statements. It will also provide a short routine that will 
READ the data and POKE it into memory. 

• Any number and combination of string and location storage 
can be used. The program will combine them into a single 
subroutine to set them up all at once. Just merge with your 
BASIC program and add a GOSUB to this subroutine. 

• The program will check your keyboard input and prompt 
you when you've made an error. 

The program, as written, sits in slightly less than 5K bytes of 
RAM after DIMensioning of arrays and strings. I've run it 
through the "Masher" program from the Atari Program 
Exchange. However, this saves only about 500 bytes. The program 
also then becomes very difficult to follow. So I've kept it as is. Type 
the program in and LIST it to disk or cassette. Don't SAVE it. 

Using the Utility 

To use the utility program, first store your machine language to 
disk or cassette as a binary file. If your source program is in RAM, 
this can be done through the assembler with this command: 
ASM„#D:< filename > for disk or ASM,, #C: for cassette. 

Note that what you wrote was the source code, not the actual 
object code which is the machine language program. Once you've 
done the above, turn off the computer to wipe out the source 
program. Then remove the Assembler cartridge, insert the BASIC 
cartridge, and boot the DOS into memory. 

If your program has already been assembled (converted to 
machine language) and the final machine language resides in 
RAM, then do the following: 
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For Disk 

SAVE #Disk File <starting address<end of routine 
address 

Example: SAVE #D:PROGRAM.OBJ<1400<17FF 
For Cassette 

SAVE #C:<start address<end address 
Note that all addresses are in a hexadecimal. 

Again, shut off the computer and replace the Assembler with the 
BASIC cartridge. 

To use this utility both the utility and the machine language 
program must be in RAM. The utility program occupies about 5K 
bytes of memory. Thus you must be careful to locate your machine 
language program so that it does not interfere with the BASIC 
program. You can locate the machine language either in page 6 or 
high up in memory just below the display list. To help you with 
the second method, the tables below define usable and safe living 
space for your machine language program. 

Table 1. Disk-Based System 



Computer 

RAM 
Installed 


Suggested Safe Memory 


Decimal 


Hexadecimal 


From 


To 


From 


To 


8K Not enough memory 
16K 12750 15390 31CE 3C1E 
24K 12750 23582 31 CE 5C1E 
32K 12750 31774 31CE 7C1E 
40K 12750 39966 31CE 9C1E 
48K 12750 39966 31CE 9C1E 

Note: Assumes that you are in GRAPHICS 0, that the BASIC cartridge is installed, 

and that the first part of DOS 2. OS (mini-DOS) is loaded. The mini-DOS occupies 
5628 bytes. 
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Table 2. Cassette-Based System 



Computer 

RAM 
Installed 


Suggested Safe Memory 


Decimal 


Hexadecimal 


From 


To 


From 


To 


8K 7100 7198 IBBC 1C1E 
16K 7100 15390 IBBC 3C1E 
24K 7100 23582 IBBC 5C1E 
32K 7100 31774 IBBC 7C1E 
40K 7100 39966 IBBC 9C1E 
48K 7100 39966 IBBC 9C1E 

Note: Assumes that you are in GRAPHICS and that the BASIC cartridge is installed. 



Machine Language to BASIC 

To convert your machine language to BASIC, proceed as follows: 

1. Load your machine language subroutine into its safe area. If 
from disk, first load the second part of DOS and then use 
option L (Binary Load). Then go back to BASIC. If you have a 
cassette, be careful. Page 65 of the Assembler Editor manual 
tells you to CLOAD your machine language. Trying that can 
give you a headache. The errata sheets front Atari give you a 
routine for cassette loading. 

2. ENTER the utility program which has previously been 
LISTed to disk or cassette (see step 6 if you are using 
cassette). 

3. RUN the program. The program will ask for the starting and 
ending addresses of your machine language routine in RAM. 
Answer in decimal only! All keyboard inputs for this program 
must be in decimal form. 

4. The program will then ask which method you desire for 
storage of your machine language. If you wish string storage, 
you will be prompted for the string name. You will also be 
asked if you wish a printout of the data to be inserted into the 
string. If so, you will be prompted to turn on the printer. 

5. If you desire to store machine language at a specific location, 
you will be asked if you wish storage at the same memory 
location as specified in step 3. Alternatively, you can store it 
at a different location. 
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6. Finally you'll be asked if you wish to make any additional 
conversions. If yes, the program will loop back. If not, the 
computer will CLOSE all files and END. Your BASIC subrou- 
tine will be stored on disk as a file labelled MLR.LST. If you 
are using a cassette, see Program 2 for required program 
modifications. 

7. After you're done, erase the utility program via NEW. Now 
enter your BASIC program. Finally, merge your machine 
language into your program by: 

For Disk 

ENTER "D:MLR.LST" 
For Cassette: 

See Program 2 

8. Now that the two programs are merged, type in a GOSUB 
statement to reference the first line number of MLR.LST (or 
the equivalent cassette file). 

And that's it; you're ready to go. 

Storing Machine Language in Strings 

I'd like to make some comments on storage of machine language 
in a string format. First, to do it correctly, you must write routines 
which are relocatable. That is, they must not contain any JMP or 
JSR instructions to a specific memory location within the 
program. Since the string can be located nearly anywhere in 
memory, nonrelocatable code will almost surely crash the 
computer. It's best to store your subroutines and data tables in 
page 6 of memory. These permanent addresses can then be safely 
called from within your routine. 

Another problem lies in proofreading your string. If you load 
your data into a string and then PRINT it to the screen, you will 
see many weird and wondrous things. What is happening is that 
the screen editor is interpreting the function of the printed 
graphics symbols and carrying out the function. For example, if 
the graphics symbol in your string is that for a "delete character," 
the computer will slavishly do it. Thus the string symbols seen on 
your screen are not correct (unless you're lucky). To check your 
string, use the following routine in direct mode. (First RUN your 
program to DIMension and initialize your string): 

L=LEN(string name*):FOR X=l TO L:?AS 
Clstring n ame$ ( X , X ));",";: NE X T X 
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This routine prints the actual value of each byte stored in the 
string. 

Another serious problem with string storage of data is the 
occurrence of values of 34 or 155. The value 34 is the ATASCII 
representation of quotation marks. The value 155 is the ATASCII 
for RETURN. The presence of either will cause the screen editor to 
prematurely truncate your string and give you an error message. 
Thus the program does the following when it encounters either 
value: 

1. It inserts a space character in the string and notes the position 
in the string. 

2. It then writes the BASIC subroutine statements so that the 
values are inserted into the string without going through the 
screen editor. It uses the CHR$ function for this purpose. 

3. As presently set up, the program can handle up to 15 values 
of the quotes and of the RETURN characters. It checks for the 
total occurrence of these and warns you if there are too many 

There you have it. I hope this program makes the difficult world 
of machine language a little more enjoyable. 

Table 3. Variables in Program 1 

A$ Used to receive yes or no responses 

BATOP Top memory location of utility program 

D0$ Holds name of string used to store machine language 

(ML) 
F Flag. Zero if string storage requested. Set to one if 

storage at a specific address is requested 
I,S,T,X,Y Loop counters 

L Length of string required to store ML 

LS,LF Initial and final position in string to be filled with data 

LN Line number of subroutine to be written for string 

storage 
LNO Line number of DATA statements to be written for ML 

storage at a specific address 
LR Remaining length of string after subtracting 80 

N Input value for choice of ML storage 

QT Total number of values of 34 in ML 

QUOTE( ) Holds position in string of ATASCII values of 34 

RT Total number of values of 155 in ML 

RETRN( ) Holds position in string of ATASCII values of 155 

S Temporary value for ML address 

SF,FF New starting and final address of ML 

SO,FO Initial starting and final address of ML 
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W 
Z 



Counter to indicate number of routines to be stored at 

specific addresses 
Indicates cell in array RETRN( ) 
Indicates cell m array QUOTE ( ) 



Program 1. Merging ML into BASIC Disk Version 



10 c 
o 

20 D 

30 D 

P 

40 ? 

P 

50 ? 

60 ? 

c 

70 ? 
80 G 

E 
90 I 

<. 


100 

1 10 

120 



130 
140 
150 

160 



l.HT SOME ADORE55 



2. WITHIN R STRING 



3.RT NEW RDDRES3 



170 
180 
190 
200 
210 

215 



LR :GRAPHICS 0:POKE 752,1:P0KE 756,209:7 

"<5 SPACES >ISfiI*i;n:ia QEEBIEiaa hbzbuhiis " : B 

SUB 600: POKE 756,224 

IM At ( 1) , D0* (3) , QUOTE (14) , RETRN ( 14) 
0*="<:3 SPACES) " : TRAP 580:GOSUB 740:V=0:O 
EN #3, 8, 0, " D: MLR. LST" : LNO=32050: LN=31000 
F = 

:? :? "INPUT STARTING ADDRESS OF CODE": 
OKE 752,0:GOSUB 590: INPUT S:SD=S:SF=S 

"INPUT FINAL. ADDRESS OF CODE":GOSUB 590 
INPUT S: FO=S: FF=S: GOSUB 640 

"STORAGE METHOD FOR ROUTINE?":? " 
3 SPACES>| 
3 SPACES>| 

"{3 SPACES>| 
OSUB 590:? :? "PLEASE TYPE NUMBER PLUS R 
TURN! " : INPUT N 

F (NOl AND N<>2 AND N<>3) THEN ? " 
BELLJWRONG RESPONSE ! TRY AGA I N ! " : GOSUB 60 
:GOTO 60 

IF N=3 THEN ? :? "NEW STARTING ADDRESS F 
OR ROUTINE?" : GOSUB 590: INPUT S:SF=S 
IF N=3 THEN ? "NEW FINAL ADDRESS FOR ROU 
TINE!":GOSUB 590: INPUT S:FF=S 
IF N = 3 THEN IF FF-SFOFO-SO THEN ? " 
CBELL> INCORRECT FINAL ADDRESS! TRY AGAIN 
! " : ? : GOTO 1 10 

IF N=l OR N=3 THEN F= 1 : V= V+ 1 : GOTO 180 
L=FO-SO+l : GOSUB 680:GOSUB 610 
? "DO YOU WISH AN BBBOO PRINTOUT":? "OF 
YOUR STRING DATA !": GOSUB 590: INPUT A* 
IF A$="Y" THEN N=4:? "HIT RETURN WHEN TH 
E PRINTER IS ON!":GOSUB 590: INPUT A*:OPE 
N tt2, 8, 0, "P: " 
GOTO 260 
? #3;LNO; 
? #3;LNO; 



;SF; 



; FF: LNO=LNO+10 



DATA 

DATA " ; 
FOR 1=0 TO 19 

IF SO+I=FO+l THEN POP :IF I THEN ? #3;", 
";-l:? #3: LNO=LNO+10: GOTO 490 
IF SO+I=FO+l THEN IF 1=0 THEN ? #3;-l:? 
#3: LNO=LNO+10: GOTO 490 
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220 
230 
240 
260 

270 

2B0 

290 
300 
310 
320 

330 

340 

350 
360 

370 
380 

390 
400 
410 
420 



430 



440 
450 



460 



470 
490 

500 

510 
520 
530 



IF I THEN ? #3; " , " ; 

? #3; PEEK (SO+I ) ; 

NEXT Is? #3: LNO=LNO+ 1 : SO=SO+20: GOTO 190 

IF N=4 THEN ? #2:? #2;"**DATA FOR ";D0*; 

" * * " 

LS=1 : Z=0: W=0: ? #3;LN;" DIM " ;D0$; " ( " ;L; " 

' • » 

IF N=4 THEN FOR 1=0 TO L-ll? #2;PEEK(SO+ 

I);:IF KL-1 THEN 7 #2;","; 

IF N=4 THEN NEXT I 

LR=L-80:IF LR<=0 THEN LF=LS+L-1 

IF LR>0 THEN LF=LS+80- 1 : L=LR 

? #3 ; D0$ ;"("; L S ;","; L F ;")=";: ? #3;CHR*(3 

4) ; : FOR I=LS TO LF 

IF PEEK (SO+I-1 ) =34 THEN ? #3;" ";: QUOTE ( 

Z) =1 : Z=Z+1 : GOTO 360 

IF PEEK (SO+I-1 ) =155 THEN ? #3;" " ; : RETRN 

(W)=I : W=W+1 : GOTO 360 

? tt3; CHR* (PEEK (SO+I-1 )> ; 

NEXT I: IF LR>0 THEN LS=LS+80:7 #3;CHR*(3 

4):? #3: LN=LN+10: ? #3;LN;" " ; : GOTO 300 

? #3; CHR* (34) : 7 #3:LN=LN+10 

QT=0: RT=0: FOR X=0 TO 14: IF QUOTE ( X ) THEN 

QT=QT+1 
IF RETRN(X) THEN RT=RT+1 
NEXT X:IF OT=0 AND RT=0 THEN 490 
7 #3; LN; "RESTORE " ; LN+20 : LN=LN+ 1 
IF QT THEN 7 #3;LN;" FOR X=l TO ";QT;":R 
EAD Z : " ; D0$; " (Z, Z) =CHR* (34) : NEXT X " : LN=L 
N+10 

IF OT THEN 7 #3;LN;" DATA " ; : FOR Y=0 TO 
QT-1:? #3; QUOTE (Y) ; : IF Y AND Y<QT-1 THEN 

«o , , , 

IF QT THEN NEXT Y : 7 #3:LN=LN+10 

IF RT THEN 7 #3;LN;" FOR X=l TO ";RT;":R 

EAD Z :"; D0*; " ( Z, Z ) =CHR$ ( 155) : NEXT X " : LN= 

LN+10 

IF RT THEN 7 #3;LN;" DATA " ; : FOR Y=0 TO 

RT-1:7 #3; RETRN (Y) ; : IF Y AND Y<QT-1 THEN 

7 #3 ■ " " - 
IF RT THEN NEXT Y:7 #3:LN=LN+10 
GOSUB 740:7 "ALL DONE":GOSUB 590: INPUT A 

IF A*="N" THEN D0*="<3 SPACES) ": CLOSE #2 

: GOTO 40 

IF F=0 THEN 570 

7 #3; "32000 W=0: V=" ; V; ": RESTORE 32050" 

7 #3;"32010 READ X,Y:FOR I=X TO Y:READ Z 

: POKE I , Z : NEXT I " 
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540 



550 
560 
570 
580 



590 



600 
610 

615 
620 



630 
640 
645 



650 



660 
670 

680 

690 
700 
710 



720 



730 
740 

750 



? # 
(34 
TS ! 
? # 
? # 
CLO 
CLO 
ROR 
6*P 
FOR 
-1 : 

0. 
FOR 
7 : 

" P 
IF 
IF 
OR 
SUB 
RET 
IF 
IF 
(BE 
P : 
BAT 
0-1 
M M 
RET 
? " 
i » . 

QT = 
4 T 
IF 
NEX 



) 

II 

3 
3 

SE 
SE 



EEK 
T = 

SOU 

0, 
T = 

*7 " 

LUS 
LEN 
ASC 
D0* 
75 
URN 
S0< 
F0> 
LL> 
GOT 
0P = 
00 
AY 
URN 
OVE 
BOS 
0: R 
HEN 
PEE 
T I 
{BE 



3202 
ERRO 
HR$ ( 
3203 
3204 
#2:C 
#2:C 
PEEK 
< 187 
10 T 
ND 
, 0: R 
1 TO 
INPU 
THE 
(D0$ 
(D0$ 
(2, 2 
0: GO 



RE 
R IN 
34) ; 
W = 
RE 
LOSE 
LOSE 
( 195 
) ; " ! 
O 6 
, 15- 
ETUR 

400 
T TW 

*" : 
) <3 
(1,1 
) =" * 
TO 6 



AD Z 

COD 

" : EN 

W+l : 

TURN 

#3: 

#3: 

> ; " 

" : EN 

STEP 

S, 10 

N 

: NEX 

O CH 

GOSU 

THEN 

) ) >9 

" OR 

10 



:IF ZO-1 THEN ?";CHR* 

E! CHECK DATA STATEMEN 

D" 

IF W<V THEN 32010" 

ii 

END 

TRAP 40000:? " CBELLJER 

AT LINE "; PEEK ( 186) +25 

D 

-1:F0R S=8 TO STEP 
,T:NEXT S:NEXT T:SOUND 

T T:RETURN 

ARACTER STRING NAME":? 

B 590: INPUT D0* 

GOSUB 750:GOTO 610 
OR ASC (D0* ( 1 , 1 ) )<65 

D0* (3, 3) <>"%" THEN GO 



1792 THEN RE 
(256*PEEK ( 10 



TURN 

6)-1000) THEN ? " 



HRUE THAT MUCH MEMORY! 



PO 



O 40 

PEEK (144) +25 

THEN ? "{BEL 

HAVE " : GOTO 

RRUN YOUR CO 
UB 600:RETUR 
T=0:FOR 1=0 

QT=QT+1 
K (SO+I ) =155 
: IF RT< 16 AN 

LLJcamcHii 



6*PEEK ( 145) : IF BATOP>S 

L>ra5nDHmn this progra 

670 

DE! CHECK YOUR RESULTS 

N 

TO L-1:IF PEEK(S0+I)=3 

THEN RT=RT+1 

D QT<16 THEN RETURN 



! YOUR CODE CONTRINS 



MORE THAN 15 ATflSCII UflLUES FO 



r-Twi 



liJ:r.M»I;MrliI-l^^«l 



CRNNOT PROCESS IT ! 



MOKE ANOTHER CHOICE! 





POP :GOTO 60 

FOR 1=0 TO 14:QU0T 

I : RETURN 
? "{BELL>WRONG RES 
URN 



GOSUB 600: GOSUB 60 



E(I)=0:RETRN(I)=0:NEXT 
PONSE ! TRY AGAIN! " :RET 
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Program 2. Changes for Cassette Users 
(see notes below) 

30 D0$="{3 SPACES} " : TRAP 580:GOSUB 740:V=0:L 

NO=32050: LN=31000: F=0 
35 OPEN #3, 8, 0, "C: " : ? #3;"1 DATA " ; : FOR 1=0 

TO 59:7 #3; "0, " ; : NEXT Is? #3;"0";:7 #3 

Note: Line 35 writes a dummy line of DATA. This is needed because of a bug in 
the operating system. After the cassette handler is OPENed, the cassette motor 
will not stop running until a record is written to it. RUN the program and record 
the subroutine on tape. Tlien, before you enter your BASIC program, ENTER the 
subroutine from cassette. DELETE line 1. Then ENTER your BASIC program. 
Now type in GOSUB to the utility subroutine and you're ready to go. 
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Machine Language 
Sort Utility 

I^^HHHH Ronald and Lynn Marcuse 

Machine language sorts are fast. With this sort utility you will be 
able to sort fixed or variable length records. These programs will 
not run on the 800XL. 

There have been occasional articles in the various personal 
computer magazines concerning the sorting of data files. Some of 
these have presented sort routines written in BASIC that can be 
used in existing programs. The complex string handling required 
by the sort logic is not really suitable for BASIC'S rather slow 
execution speed. Clearly any type of repetitive string manipula- 
tions as performed by sorting or searching functions would defi- 
nitely benefit from machine language. If you continue reading you 
will find out how much faster machine language really is. 

Before we get into the programs themselves, it would prob- 
ably be beneficial to include some background information. The 
verb to sort is defined as: "to put in a certain place or rank 
according to kind, class or nature; to arrange according to charac- 
teristics." This comes pretty close to what we sometimes want to 
do with the data we store in our computers and files: put it in 
some kind of order. Once we have arranged it we can search it 
quicker (imagine a disorganized phone book), list it in a more 
readable format, or even match it to other files that have been 
sorted the same way. 

The Main Questions 

First we must decide where will we do the actual sorting. All of us 
have arranged things on a desk or table. Our sort area is, there- 
fore, the desk or table that we use. In a computer system we have 
a choice of using the memory within the machine (internal) or our 
disk drive (external). There are problems with both of these. 
Computer memory is limited in size and this, in turn, limits the 
number of records that can be read in. The disk drive may be able 
to hold more data, but the speed of the device is snail-like when 
compared to memory. We can also use both. Divide the file up 
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into smaller chunks which can be sorted in memory, store these 
on disk as temporary files, and then merge all of them together. 
This process is usually referred to as sub-listing or sort-merge. 

The next question involves the type of sort logic (there are 
many ways of putting things in order). The algorithm used here is 
called a bubble sort. The file or list is examined two records at a 
time. If the second has a lower sort key than the first, the two will 
exchange places within the file. Why then, you ask, is it called a 
bubble sort: because records appear to bubble upward in memory 
(I didn't coin the phrase). Although this is not a very exotic meth- 
odology, it does offer several advantages such as requiring no 
other memory allocations for sorting and a rather quick speed if 
the file is not too disorganized. It will also not disturb the relative 
positioning of records that have equal sort keys. 

There are numerous other types of sort algorithms. A selection 
sort would go through a list of (n) items (n-1) times, pulling out the 
next lowest record and adding it to the current end of a new list. 
This would need double the memory though. A selection and 
exchange sort would perform a similar function within the main 
sort area, selecting the lowest element during each pass, moving 
it upward in the list to be exchanged with the element occupying 
its new position. This method tends to upset the existing relative 
positioning. Other types involve binary tree searches and more 
complex algorithms. 

The difference between fixed and variable length records is 
really just that. Fixed length records are all exactly the same size, 
while variable implies that all or many of the records in the file 
may vaiy in length. Record 1 may be 80 bytes long, record 2 may 
be 120, etc. 

Why Machine Language 

The choice of language is, as stated above, rather clear. Unless you 
have a lot of time to kill, it must be in machine language. When 
you're doing several hundred thousand (or million) character 
comparisons and swaps, you don't have time to pull out a BASIC/ 
machine language dictionary for each line in the program (this, in 
essence, is what the BASIC interpreter does). 

Here are some representative execution times, based on 
some testing we did a while back. The speeds are approximate 
and do not include disk input/output time. The test file consisted 
of 200 records, each 75 characters in length. The sort key occupied 
ten positions: 
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BASIC selection/exchange sort (in memory) - 8 minutes 
BASIC bubble sort (in memory) - 12 minutes 
BASIC selection sort (on disk) - 2 hours plus (hit BREAK key) 
Machine language bubble (memory) - 3 seconds 

The sort program was developed with flexibility in mind. It 
will sort fixed length or variable length records from 2 through 250 
bytes in length. The sort key itself may be located anywhere in the 
record and can be any length (up to the size of the record). It will 
sort in either ascending or descending order. The records them- 
selves must be comprised of ATASCII characters. While in 
memory they need not be terminated by end-of-line ($9B) charac- 
ters. 

The nominal limit of 250 characters is imposed by a possible 
bug in Atari's DOS II. The second half of page 5 (memory 
addresses 0580-05FF hex, 1408-1535 decimal) appears to be utilized 
as an internal I/O buffer. When more than 128 bytes are input, the 
excess winds up on page 6. The sort program also resides in the 
safe user area of page 6 (beginning at $0680 or 1664). There is a 
physical law that states two things cannot occupy the same place 
at the same time. This also holds true in computer memory. The 
program has been pushed as far into page 6 as it can go. 

Using the Sort 

In order to use the sort, you must feed it certain parameters. The 
record length must be POKEd into location 205 ($00CD). The sort 
type (0- Ascending, TDescending) would be POKEd into 206 
($00CE). The starting and ending positions of the sort key will 
also have to be POKEd into locations 203 ($00CB) and 204 
($00CC). The program is expecting to see the offset of the sort key. 
The offset is the number of positions in front of that byte. For 
example, the first position of a record has a offset, the second 
has an offset of 1, and the hundredth has an offset of 99. The 
USeR function that calls the sort will also pass the address of the 
string containing the file and the record count. For those who are 
a little unsure of what this is all about, there are a few examples 
coming up. 

Now that you have a routine that will sort your data faster 
than you can say Rumpelstiltskin, how do you use it? Here are 
several suggestions. The easiest method is to link through our 
sort/file loader in Program 1 (fixed length only). Your existing 
program that is processing the data file is probably much, much 
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longer than the short loader. The main advantage of using a small 
program is that you wind up with more free memory. And, since 
memory is our sort area, the more that is free, the larger the file. If 
you don't type the REMark statements, you'll have an even larger 
sort area. The disk file must be fixed length records terminated by 
end-of-line characters. Your existing processing program must 
contain the POKEs mentioned above. It may look something like 
this: 

POKE 203, SKEYA-l : POKE 204, SKEYB-1 : PO 
KE 205, RECLEN: POKE 206,0 (for Ascend 

ing) 

The call to the loader would be a RUN "D:SORTLOAD" (give the 
loader this filename when you save it). The sort/file loader must 
have your filename in the variable F$ and your program name in 
P$. If your processing program handles several files, you can also 
pass the filename by using the following statements. First, your 
program: 

FOR 1=0 TO 14:P0KE 1 640+ 1 , 32 : NEXT I 
FOR 1=0 TO LEN (Ft) : POKE 1640+1, ASC(F 
t ( I , I > > : NEXT I 
Note: Ft is your -files name 

The sort/file loader will require the following lines to be added: 

70 FOR 1=0 TO 14: Ft ( I , I ) =CHRt (PEEK ( 1 

640+1 ) ) : NEXT I 
80 IF Ft ( 1 , 2) < >"D: " THEN ? " ERROR" :E 

ND 

If your processing program or file is small, you may do all of the 
above from within your program. Besides the same POKEs as 
above (you wouldn't need the filename of course), you will need 
the following line added to your program: 

IF RC>1 THEN A=USR ( 1664, ADR (Xt) , RC) 

where RC is the number of records stored in the string X$. Substi- 
tute your names where applicable. 

Programs 2,3,4, and 5 comprise a sort/merge utility that uses 
the same sort routine. This will give you the ability to handle 
much larger files and variable length records. With a 40 or 48K 
machine you will be able to sort files that are 60,000 bytes long. (If 
the record length is 60 characters, that will translate to 1,000 
records.) This particular version divides the file into two manage- 
able sub-files, sorts each, and then merges them. Be careful with 



261 




Beyond BASIC 



your disk space; the temporary file will need room also. If you 
have more than one drive, you can modify the program to split it 
three or more ways and sort even more records. For example, put 
the temporaries on drive 2 and the new file on drive 3. Who said 
micros can't handle larger files? 

Your Options 

The sort/merge utility is a stand-alone. Program 2 will load the 
machine language and display a title screen. Program 3 is a menu 
that will allow you to select either fixed or variable length record 
types and other parameters. If you select fixed length, Program 4 
will be called; variable length will select Program 5. 

Because of the chaining between these programs, Program 3 
must be saved with a filename of "D:SORTXX". Programs 4 and 5 
must likewise be saved with filenames of "D:SORT.FFX" and 
"D:SORT. VAR", respectively. Program 2 may be saved with any 
filename, but "D:SORTMERG" is suggested to avoid confusion. 

Now that you know how to feed the sort its required param- 
eters and call it, you must still get it into memory Once again, you 
have several options. If you have the Assembler/Editor cartridge 
(or a similar assembler), the source appears in Program 6. Please 
feel free to modify it. If you're limited to BASIC, Program 7 will 
load the machine language when it is run. After doing either of 
these, you should go directly to DOS (DOS II only) and do a 
binary save (option K) with the following parameters: 

Dl : AUTDRUN. SYS, 0680, 06FD 

Saving the machine language as AUTORUN.SYS will enable the 
program to auto-boot when you power up with the disk (you must 
power up with that disk). Do not append an INIT or RUN address 
to the file unless you want the machine to lockup every time you 
turn it on. The stand-alone sort/merge utility will automatically 
load the machine language when RUN "D:SORTMERG" is 
executed by the Atari. 

Program 1. Sort Program Load (Files) 

10 REM CALLINB PROGRAM MUST: 
12 REM 

14 REM * POKE RECORD LENGTH INTO LOCATION 2 
05 

15 REM * POKE BEGINNING OF SORT KEY INTO LO 
C 203 

16 REM * POKE END OF SORT KEY INTO LOCATION 

204 
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17 REM * POKE TYPE (ASCENDING - OR DESCEN 

DING - 1) INTO LOC 206 
IB REM 

19 REM THIS PROGRAM WILL LOAD FILE INTO MEMO 
RY AND CALL MACHINE 

20 REM LANGUAGE ROUTINE. WHEN COMPLETED, YOU 
R PROGRAM MAY BE 

21 REM RE-CALLED BY EQUATING P* TO YOUR PROG 
RAM NAME. 

22 REM 

50 DIM X$(FRE(0)-600),R$(130),F$(15),P$(15), 
I* ( 1 ) 

59 REM REPLACE X'S WITH YOUR FILE & PROGRAM 
NAMES 

60 P*="XXXXXX" : F$=" XX XX XX " 

99 REM GET RECORD LENGTH 

100 RET=100: R=PEEK (205) 

109 REM OPEN FILE AND INPUT RECORDS 

110 ? " LOADING ";F*:TRAP 600:OPEN #2,4,0,F$ 
: L=l 

120 TRAP 140: INPUT #2,R$:TRAP 40000 
130 X* (L, L+R-l ) =R$: L=L+R: GOTO 120 
140 CLOSE #2: L=L-1 : N=L/R: ? " RECORDS LQADED= 
";N 

149 REM CALL MACHINE LANGUAGE SORT ROUTINE 

150 IF N>1 THEN 7 " BEGIN SORT " : A=USR ( 1 664 , A 
DR (X*) , N) 

160 RET=170:7 " COMPLETED SAVING " ; Ft 

169 REM ERASE OLD FILE AND SAVE NEW ONE 

170 TRAP 600:XIO 36, #2, 0, 0, F$: OPEN #2,8,0,F$ 
180 FOR 1 = 1 TO L STEP R : R*= X* ( I , I +R- 1 ) : 7 #2; 

Rt:NEXT I 
190 CLOSE #2:XIO 35,#2,0,0,F$ 

199 REM RETURN TO YOUR PROGRAM 7 

200 RET = 200:TRAP 600:IF P$(3,4X>"XX" THEN 7 

" LOADING ";P*:RUN Pt 
210 END 

600 7 " ERROR - "; PEEK ( 195) : CLOSE #2 
610 7 " PRESS RETURN TO CONTINUE" ;: INPUT I*: 
GOTO RET 



Program 2. Sort/Merge Loader 



DIM M*(20):FOR 1=1 TO 13:READ A:M*(I)=CHR* 
(A):NEXT I : DATA 72,198,203,165,208,141,10, 
212, 14 1 , 24, 2 08, 104, 64 

1 GRAPHICS 2 1: POKE 752,l:POKE 82,1 

2 POKE 708,52:POKE 709,8:POKE 7 1 , 1 48 : POKE 7 
11,66:P0KE 712,152:P0KE 559,0 
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I=PEEK (560) +PEEK (561 ) *256: FOR 
B:POKE I+A,B:NEXT J 
1"(ADR (M*> /256) : POKE 



J=l TO 4:REA 

(ADR (M*> /256) : POKE 513,A:P0KE 512, ADR 
A*256 

30:POKE I+J,138:NEXT J : POKE 
559, 34 




160 DATA 72,177,212,145,214,11 
0, 208, 24 1 , 232, 224, 

170 DATA 208,2,230,207,228,20! 
09, 197, 207, 208, 166, 165 

180 DATA 218,201,0,208,144,96 
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Program 3. Sort/Merge Menu 

(SAVEas"D:SORTXX") 

REM SORT/MERGE MENU 

10 POKE 82, 1 : GRAPHICS 0:? , " { DQWN> BEBBtiBSXSEISS 

■BBOBBQB " : ? " {DOWN} {TAB} " 
20 DIM I$(l),Tt(l):Q3 = 40000:? "<:DOWN>FOR FIL 

E TD BE SORTED, ENTER:" 
30 ? " CDOWN>FIXED (F) or VARIABLE (V) LENGTH 

" ; : INPUT I* 
40 R=0: IF I$="V" THEN 70 
50 IF I*<>"F" THEN 30 
60 ? "RECORD LENGTH " ; : TRAP 40: INPUT R:TRAP 

Q3: IF R<2 OR R>250 THEN 60 
70 ? "SORT KEY (1st, 2nd) " ; : TRAP 70: INPUT SS 

,SE:TRAP Q3 
75 IF SS>=SE OR SS<0 OR SE>250 THEN 70 
80 ? "ASCENDING - OR DESCENDING - 1 " ; : TR 

AP 80: INPUT T:TRAP Q3 
85 IF T<0 OR T>1 THEN 80 
90 POKE 205,R:POKE 203,SS:POKE 204,SE:POKE 2 

06, T 
100 TRAP 120: IF I*="V" THEN RUN " D : SORT . VAR " 
110 RUN "D:SORT.FIX" 

120 ? "INSERT DISKETTE WITH SORT PROGRAM":? 
"PRESS RETURN ";: INPUT T*:GOTO 100 

Program 4. Fixed Length Records 
(SAVE as "D:SORT.FIX) 

REM SORT/MERGE - FIXED LENGTH RECORDS 

2 R=PEEK (205) : SS=PEEK (203) +1:SE=PEEK(204)+1 

: T=PEEK (206) 
30 XL=FRE (0) -600: DIM X$ (XL) ,F$ ( 15) ,R*(R) ,Tt ( 

R) , D* (7) 
40 Ql=210: 02 = 600: 03 = 40000: D*= " D 1 : TEMP '* 
50 ? "ENTER FILE NAME ( Dn : name . ex t ) " : I NPUT F 

$ 
60 TRAP 50: DO=VAL (F* (2, 2) ) : IF D0< 1 OR D0>4 T 

HEN 50 
80 ? "DRIVE NUMBER FOR SORTED FILE " ; : TRAP 8 

0: INPUT DN 
90 IF DN< 1 OR DN>4 THEN 80 

95 D* (2, 2) =STR* (DO) : ? "INSERT " ; F* ; " IN DRIV 
E " ;DO:IF DNODO THEN ? "AND BLANK DISK I 
N DRIVE " ; DN 

96 ? "PRESS RETURN ";: INPUT R* 

100 ? "LOADING ";F*:TRAP Q2:OPEN #2,4,0,F*:M 
= 
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120 

140 
150 
160 

170 
180 

200 

210 
220 

230 
240 
245 
250 
260 
270 
280 
300 
302 
310 
312 
330 
340 
390 

400 
410 
500 
510 
520 
530 
540 

550 
560 

600 



L=l:? "PASS 1 - ";:GOSUB 500: IF M=0 THEN 

160 
? "WRITING ";D$:QPEN #3, B, 0, Dt: GOSUB 560 
? "PASS 2 - » ; : L= 1 S GOSUB 500 

CLOSE #2: TRAP Q2:IF DO = DN THEN ? "DELETI 
NG ";F*:XIO 36,#3,0,0,F$ 
F*(2, 2) =STR$ (DN) : OPEN *3,8,0,F* 
? "WRITING ";F*:IF M=0 THEN GOSUB 560:GO 
TO 400 

TRAP Q2:0PEN #2 , 4 , , Dt : J= 1 : A= 1 : B= 1 : AE= 1 : 
BE=1 

IF A=l THEN TRAP 330! INPUT #2,R*:TRAP Q3 
IF B=l THEN TRAP 340 : T* = X$ ( J , J +R- 1 ) : J= J + 
R:TRAP Q3 

IF AE=0 AND BE=0 THEN 390 
IF AE=1 AND BE=0 THEN 300 
IF AE=0 AND BE=1 THEN 310 
IF T=l THEN 280 

IF R* (SS, SE> >T* <SS, SE) THEN 310 
GOTO 300 

IF R$(SS,BEXT$(SS,SE) THEN 310 
? #3; R*: A=l : B=0: IF AE=0 THEN A=0:B=BE 
GOTO Ql 

? #3; T*: A=0: B=l : IF BE=0 THEN B=0:A=AE 
GOTO Ql 
AE=0:GOTO 220 
BE=0:GOTO 230 

CLOSE #2:? "DELETING ";D*:XIO 33, #2,0,0, 
Dt 

CLOSE #3:XI0 36,#3,0,0,F* 
END 

TRAP 530: INPUT #2,R*:TRAP Q3 
X* (L) =R*: L=L+R: IF (L + RXXL THEN 500 
M=l 

L=L-1 : N=L/R: ? "RECORDS LOADED = ";N 
IF N>1 THEN ? "BEGIN SORT " ; : A=USR ( 1 664 
, ADR (X*) , N) 
? "END SORT" : RETURN 

FOR 1=1 TO L STEP R : R*=X* ( I , I +R- 1 > : ? #3; 
R*:NEXT I : CLOSE #3:RETURN 
? "ERROR - "; PEEK ( 195) : END 



Program 5. Variable Length Records 
(SAVEas"D:SORT.VAR) 

REM SORT/MERGE - VARIABLE LENGTH RECORDS 
10 SS=PEEK (203) +1 : SE=PEEK ( 204 ) +1 :T=PEEK<206) 

: POKE 203,SS:POKE 204, SE 
20 XL=FRE (0) -600: DIM X * ( XL ) , F* < 1 5 ) , R* < 25 1 ) , T 

* (251 ) , D* (7) 
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30 Q1=210:Q2=600:Q3=40000:D*="D1: TEMP" : T* ( 1 ) 

_„ •■ : t* (251 ) =" ":T*(2)=T$(D 
40 ? "ENTER FILE NAME (Dnmame.ext) ": INPUT F 

* 
45 TRAP 40: DO=VAL (F* (2, 2) > : IF D0< 1 OR D0>4 T 

HEN 40 
50 ? "DRIVE NUMBER FOR SORTED FILE " ; : TRAP 5 

0: INPUT DN 
55 IF DN< 1 OR DN>4 THEN 50 

57 ? "INSERT ";F*;" IN DRIVE ";DO:IF DN< >DO 
THEN ? "AND BLANK DISK IN DRIVE " ; DN 

58 D* (2, 2) =STR* (DO) : ? "PRESS RETURN ";: INPUT 

R* 
60 ? "FINDING LONBEST RECORD LENGTH":TRAP Q2 

:OPEN #2, 4, 0, F*: R=0 
70 TRAP 80: INPUT #2, R$: L=LEN(R$) : IF L>R THEN 

R = L 
75 SOTO 70 
80 CLOSE #2:? "LONGEST LENGTH IS " ; R : I F R>25 

THEN ? "TOO LONG": END 
100 POKE 205,R+1:7 "LOADING ";F*:TRAP Q2:0PE 

N #2, 4, 0, F*: M=0 
120 L=l:2 "PASS 1 - " ; : GOSUB 500: IF M=0 THEN 

160 
140 ? "WRITING ";D*:OPEN #3 , 8 , , D* : GOSUB 560 
150 ? "PASS 2 - ";:L=l:GOSUB 500 
160 CLOSE #2: TRAP Q2:IF DO=DN THEN ? "DELETI 

NG ";F*:XIO 36,#3,0,0,F* 
170 F* <2, 2) =STR* (DN) : OPEN #3,8,0,F* 
180 ? "WRITING ";F$:IF M=0 THEN GOSUB 560:GO 

TO 400 
200 TRAP Q2:OPEN #2 , 4 , , D$ : J= 1 : A= 1 : B= 1 : AE= 1 : 

BE=1 
210 IF A=l THEN TRAP 330: INPUT #2,R*:TRAP Q3 
220 IF B=l THEN TRAP 340 : RL=ASC ( X* ( J , J ) ) : Tt= 

X* ( J+l , J+RL) : J=J+R+1 : TRAP Q3 
230 IF AE=0 AND BE=0 THEN 390 
240 IF AE=1 AND BE=0 THEN 300 
245 IF AE=0 AND BE=1 THEN 310 
250 IF T=l THEN 280 

260 IF Rt(SS,SE)>T$(SS,SE) THEN 310 
270 GOTO 300 

280 IF R$(SS,SEXT$(SS,SE) THEN 310 
300 ? #3; R*: A=l : B=0: IF AE=0 THEN A=0:B=BE 
302 GOTO Ql 

310 ? #3; T*: A=0: B=l : IF BE=0 THEN B=0:A=AE 
312 GOTO Ol 
330 AE=0:GOTO 220 
340 BE=0:GOTO 230 
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390 CLOSE #2:? "DELETING ";D*:XIO 33, #2, 0,0, 

D* 
400 CLOSE #3:XI0 36,#3,0,0,F* 
410 END 
500 TRAP 530: INPUT #2,R*:TRAP Q3 : RL=LEN ( R* ) : 

IF RL<R THEN R*(RL+1)=T* 
510 X* <L, L) =CHR* (RL) : X* ( L+ 1 ) =R* : L=L+R+ 1 : IF ( 

L+R+i)<XL THEN 500 
520 M=l 

530 L=L-1 :N=L/ (R+l ) : ? "RECORDS LOADED = " ; N 
540 IF N>1 THEN ? "BESIN SORT " ; : A=USR ( 1 664 

, ADR (X*) , N) 
550 ? "END SORT" : RETURN 
560 FOR 1=1 TO L STEP R+ 1 : RL=ASC ( X$ ( I , I ) ) : R* 

=X* ( 1+1 , I+RL) 
570 ? #3;R*:NEXT I : CLOSE #3:RETURN 
600 ? "ERROR - "; PEEK (195) s END 

Program 6. Machine Language Bubble Sort 



0100 



.TITLE "MACHINE LANGUAGE BUBBLE SORT 



0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 

0190 
0200 
0210 



RLM MICRO SYSTEMS 01/20/82 

CALLED FROM BASIC WITH: 

A=USR (1664, ADR (X*) ,RC) 

NOTE: X* IS THE STRING THAT CONTAINS 
THE FILE 

RC IS THE NUMBER OF RECORDS 



THE FOLLOWING ARE POKED BY BASIC PRO 

GRAM: 
0220 ; 
0230 ; SS - BEGINNING OF SORT KEY (DECI 

MAL- 203) 
0240 ; SE - END OF SORT KEY (DECIMAL - 

204) 
0250 ; RL - RECORD LENGTH (DECIMAL - 20 

5) 
0260 ; TYPE - ASCENDING (0) OR DESCEND 

ING ( 1 ) 



0270 
0280 
0290 



(DECIMAL - 206) 



THE ROUTINE WILL LOOP THROUGH "FILE" 
SWAPPING UNSORTED 
0300 ; ADJOINING MEMBERS UNTIL THE "SWAP" FL 
AG HAS NOT BEEN SET 
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THE ZERO PAGE ADDRES 
SES "FST" AND "SEC" 
0320 ; POINT AT THE INDIVIDUAL MEMBERS BEING 

COMPARED. THE Y 
0330 ; REGISTER IS USED AS AN INDEX POINTER 

FOR TESTING OR 
0340 ; MOVING BYTES BETWEEN THE TWO RECORDS. 
0350 ; 

START ON PAGE 6 
MEMBER n ADDRESS (LS 

MEMBER (n+1) ADDRESS 

BASE ADDRESS OF LIST 

FIRST POSITION OF SO 

LAST POSITION OF SOR 

ELEMENT LENGTH 

SWAP SWITCH 

NUMBER OF ELEMENTS ( 

RECORD COUNTER (MSB, 

SORT TYPE, 0-ASC 1- 

POP # OF ARGUMENTS F 
SET BASE ADDRESS 

SET ELEMENT COUNT 

START EACH PASS THRO 

SET SWAP TO 

SET HIGH COUNT TO 

SET X REGISTER TO 1 

SET POINTER (n) TO B 



0360 


* = 


$0680 


0370 FST 


= 


*D4 


B, MSB) 






03S0 SEC 


= 


$D6 


(LSB, 


MSB) 




0390 BASE 


= 


*D8 


(LSB, 


MSB) 




0400 SS 


= 


*CB 


RT KEY 






0410 SE 


= 


$CC 


T KEY 






0420 RL 


= 


*CD 


0430 SWAP 


= 


$DA 


0440 RC 


= 


$D0 


LSB, MSB) 




0450 CNTH 


= 


$CF 


X REG 


IS LSB) 


0460 TYPE 


= 


*CE 


DES 






0470 ; 






0480 ; 






0490 


PLA 




ROM STACK 




0500 


PLA 




0510 


STA 


BASE+1 


0520 


PLA 




0530 


STA 


BASE 


0540 


PLA 




0550 


STA 


RC+1 


0560 


PLA 




0570 


STA 


RC 


0580 ; 






0590 ; 






0600 BEGIN 


LDA 


#$00 


UGH FILE 




0610 


STA 


SWAP 


0620 


STA 


CNTH 


0630 


LDX 


#$01 


(LOW COUNT) 




0640 


LDA 


BASE 


ASE 
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0650 




STA 


SEC 




0660 




LDA 


BASE + 


1 


0670 




STA 


SEC+1 




0680 


H 








0690 


CONT 


CLC 






0700 




LDA 


SEC 




0710 




STA 


FST 




0720 




ADC 


RL 




0730 




STA 


SEC 




0740 




LDA 


SEC+1 




0750 




STA 


FST+1 




0760 




ADC 


#*00 




0770 




STA 


SEC+1 




0780 




LDY 


SS 




SON 








0790 


5 








0800 


COMP 


LDA 


TYPE 




ING? 








0810 




BEQ 


ASC 




0820 




LDA 


(SEC) 


, Y 


0830 




CMP 


(FST) 


, Y 


MBERS 








0840 




BCC 


BACK 




0850 




BEQ 


INCR 




0860 




BCS 


FLIP 




0870 


5 








0880 


ASC 


LDA 


(SEC) 


,Y 


0890 




CMP 


(FST) 


, Y 


MBERS 








0900 




BCC 


FLIP 




0910 




BEQ 


INCR 




0920 




BCS 


BACK 




0930 


n 








0940 


INCR 


INY 






0950 




CPY 


SE 




0960 




BEQ 


CDMP 




0970 




BCS 


BACK 




0980 




BCC 


CDMP 




0990 


■i 








1000 


FLIP 
+ 1 ) 


LDA 


#*01 




1010 




STA 


SWAP 




1020 




LDY 


RL 




1030 


5 








1040 


MOVE 


DEY 






1050 




LDA 


(SEC) 


,Y 


1060 




PHA 






1070 




LDA 


(FST) 


»Y 


1080 




STA 


(SEC) 


, Y 



RESET POINTERS- 
(n ) to (n+1 ) 

(n + 1) to (n+2) 



ASCII STRINS COMPARI 



ASCENDIN6 OR DESCEND 

SORT IS ASCENDINS 
TYPE = DESCENDING 
COMPARE ADJOINING ME 

( n ) >( n + 1 ) 

(n ) = (n+1 ) TRY AGAIN 

( n X ( n + 1 ) 

TYPE = ASCENDING 
COMPARE ADJOINING ME 

(n ) > (n+1 ) 

(n)=(n+l) TRY AGAIN 

( n ) < ( n + 1 ) 

ADD 1 TO POINTER 

END OF SORT KEY? 

NO 

YES, NEXT ELEMENT 

NO 

SWAP ELEMENTS (n),(n 

SET SWAP SWITCH ON 
LOAD LENGTH 

SET DISPLACEMENT 
EXCHANGE BYTES 
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100 
110 
120 
130 
140 



BACK 
NTER 



1090 PLA 

STA 
CPY 
BNE 

INX 

1150 CPX 

1160 BNE 

1170 INC 

1 180 ; 

1190 TEST CPX 

1200 BNE 

1210 LDA 

1220 CMP 

1230 BNE 

1240 LDA 

1250 CMP 

1260 BNE 

1270 RTS 
6 PROGRAM 

1280 .END 



(FST) 
#$00 
MOVE 



#$00 
TEST 
CNTH 

RC 

CONT 

RC+1 

CNTH 

CONT 

SWAP 

#$00 

BEGIN 



MORE BYTES TO SWAP? 
YES 

INCREMENT RECORD COU 

CHECK FOR >255 

ADD 1 TO HIGH COUNT 

END OF FILE? 

NO 

CHECK HIGH EOF 

NOT END OF FILE 

TEST FOR END OF SORT 

ANY SWAPS? 

YES, START OVER 

NO, RETURN TO CALLIN 



Program 7. Sort Load 



98 FOR 1=0 TO 125:READ A:POKE 1 664+ I , A : NEXT 

I 
100 



1 10 
120 
130 
140 
150 
160 
170 
180 



DATA 


104 


,209, 


104 


DATA 


133 


14, 165,2 


DATA 


165 


,215, 


133 


DATA 


215 


209, 212, 


DATA 


176 


, 176, 


30, 


DATA 


240 


8, 164, 20 


DATA 


72, 


0, 208, 24 


DATA 


208 


09, 197, 2 


DATA 


218 



, 104, 133, 217, 104, 133, 216, 104, 133 

,133, 208, 169, 

,218, 133, 207, 162, 1, 165, 216, 133, 2 

17, 133, 215, 24 

,214,133,212,101,205,133,214,165 

, 213, 105, 0, 133 

,164, 203, 165, 206, 240, 10, 177, 214, 

144, 44, 240, 12 

, 19, 177, 214, 209, 212, 144, 13, 240, 2 

200, 196, 204 

, 227, 176, 23, 144, 223, 169, 1, 133, 21 

5, 136, 177, 214 

177, 212, 145, 214, 104, 145, 212, 192, 

1 , 232, 224, 

,2, 230, 207, 228, 208, 208, 172, 1 65 , 2 

07, 208, 166, 165 

, 201 , 0, 208, 144,96 
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- A 

A Complete Guide 

- to the Atari 

- Chara cter Set 

■■■■■■■Orson Scott Card 

Atari characters can be used to do many things besides speak 
English to the user. Nearly infinite strings can hold fully relocat- 
able machine language programs in character form, the most 
economical way of storing machine language in BASIC programs. 
Characters can be POKEd directly into screen memory. Programs 
can read the keyboard directly by-passing the Atari's keyboard 
handling routines, so that you can effectively redefine almost 
every key and key combination. And editing functions, like 
CURSOR LEFT, DELETE, CLEAR, TAB, and even TAB SET and 
TAB CLEAR, can all be executed during a program simply by 
PRINTing them, either as part of a string or as a CHR$(?t) func- 
tion. 

The trouble is, to do all these things requires using several 
different codes. And the different codes have all been kept in 
different lists — often in different books — and as often as not 
you've had to translate hexadecimal to decimal or multiply by 8 in 
order to get the value you wanted. 

Until now. Here is a complete listing of the Atari character 
set, in ATASCII order, with every bit of information we could 
think of a use for. For each of 128 characters, you will find: 

• The pattern of on-off bits that produces the character on the 
screen, including the value of each byte in the pattern. 

• The ATASCII values in decimal and hexadecimal for regular 
and inverse characters. 

• The internal code values in decimal and hexadecimal for 
regular and inverse characters. 

• The keyboard code values in decimal and hexadecimal, 
including the value of the key combination and the value of 
the unshifted key alone. 

• The machine language instruction represented by the 
regular and/or inverse character's ATASCII value. 
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• The offset of the character's 8-byte pattern within character 
set memory. 

• The key combination required to PRINT the character (or 
execute its screen editing function). 

• The effect of PRINTing screen editing characters. 

How to Use the Table 

Each entry begins with a printout showing the pattern of on-off 
bits in the character pattern. Beside each row is the value, in 
decimal, of the byte that produces that row's on-off pattern. On 
bits are 1, off bits are 0. The operating system creates inverse char- 
acters from the same patterns, except that is interpreted as on 
and 1 is interpreted as off. 

ATASCII VALUE 

The first line gives the ATASCII code in decimal and hexadecimal 
($) and the value of the inverse character. If the character is also an 
editing command, the effect of PRINTing the character is given in 
the third column of the first line. 

Machine Language 

The second line gives the 6502 machine language instruction 
represented by the ATASCII value of the character, followed by 
the instruction represented by the ATASCII value of the inverse 
character. If the inverse character is also an editing command, the 
effect of PRINTing the inverse character is given in the third 
column of the second line. 

The following conventions are used with the machine 
language mnemonics: 

# = immediate addressing 

z = absolute zero page addressing 

abs = absolute 2-byte addressing 

(ind) = indirect addressing 

,X or , Y = indexed addressing 

A = accumulator 
Remember that the machine language mnemonic represents 
the ATASCII value of the character, not the ICODE (internal code) 
value. This information is provided so you can decode machine 
language routines contained in strings, like: 

C = USR( ADRC'string")) 

Also, keep in mind that after almost every instruction comes 
a 1- or 2-byte argument. Any instruction that uses absolute 
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addressing will be followed by a 2-byte argument; instructions 
that use indirect, zero page, and immediate addressing, as well as 
branch instructions, will use 1-byte arguments; and instructions 
with implied addressing (DEY, INX, RTS, NOR BRK, etc.) will 
have no argument following them. 

ICODE Values 

The third line gives the ICODE (internal code) value of the char- 
acter. This is the number that must be POKEd into screen memory 
to display the character on the screen; the number also represents 
the order of the character within character set memory. The 
ICODE value is given in decimal and hexadecimal, followed by 
the ICODE value of the inverse character in decimal and hexadec- 
imal. Last comes the offset of the character in the character set — 
the number of bytes to count into character set memory to find the 
top line of that character's pattern. 

(Occasionally the keyboard code is also called an internal 
code, but for clarity we will use ICODE only for the number repre- 
senting the character's order in character set memory, which is 
also the number POKEd into screen memory. ) 

KEYCODE Values 

The fourth line gives the KEYCODE (keyboard code) value of the 
character — the number that is stored in location 764 when you 
press the key combination that produces that character. The 
number is given in decimal and hexadecimal, followed by the 
decimal and hexadecimal unshifted KEYCODE — the code for the 
individual key, regardless of whether SHIFT or CONTROL are 
pressed. Last comes the key combination required to produce the 
character. If the character is also an editing command, (ESC) will 
come first to remind you to PRINT or type the ESC character first 
or PRINTing the character will execute its editing function. 

Indexes 

To help you use this table, it is followed by several indexes: 

ICODE index. Look up characters by their internal code 

number. 

Machine language index. Look up characters by the 

machine language mnemonic (in alphabetical order). 

KEYCODE index. Look up characters by their keyboard code 
number. 
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Screen Editing Characters 

The screen editing characters are paired, with the second char- 
acter in each pair PRINTed as the inverse of the first character. To 
be PRINTed— PRINT CHS$(ntm)— each character must be 
preceded by the ESC character— PRINT CHR$(27);CHR$(«nn). 
The only exception is CHR$(155), the RETURN character. If you 
could PRINT it, it would be the inverse ESCAPE character, which 
is what appears when you POKE the ICODE equivalent, 219, into 
screen memory. However, used with PRINT, CHR$(155) will 
always cause the Operating System to execute a carriage return 
and line feed. There is no way to defeat this without altering the 
OS. 



Normal 



Inverse 



27 


155 


ESC 


RETURN 


28 


156 


CURSOR UP 


DELETE LINE 


29 


157 


CURSOR DOWN 


INSERT LINE 


30 


158 


CURSOR LEFT 


TAB CLEAR 


31 


159 


CURSOR RIGHT 


TAB SET 


125 


253 


CLEAR 


BUZZER [CONTROL-2] 


126 


254 


DELETE BACK 


DELETE AHEAD 


127 


255 


TAB 


INSERT CHARACTER 
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ATASCII SOO inv 128 
ML BRK inv — 

1CODE 64 $40 inv 192 

KEYCODE160 SAO uns 32 



24 
24 
31 
31 
24 



$80 



SCO offset 512 
$20 CONTROL-, 



ATASCII 5 
ML ORA z 
ICODE 69 
KEYCODE170 




ATASCII 1 $01 inv 129 $80 ATASCII 6 

ML ORA (ind.X) inv STA (ind.X) ML ASL z 

ICODE 65 $41 inv 193 $C1 offset 520 ICODE 70 

KEYCODE191 $BF uns 63 SBF CONTROL-A KEYCODE184 



■ 



$05 inv 133 
inv STA 
$45 inv 197 
SAAuns 42 



$85 



$C5 offset 552 
$2A CONTROL-E 



■ B r 



14 



112 
224 
192 

$06 inv 134 
inv STX 
$46 inv 198 
$138 uns 56 



$86 



$C6 offset 560 
$38 CONTROL-F 



Jl rW 



192 
224 
112 
56 

28 
14 



ATASCII 2 


$02 


inv 


130 


$82 


ATASCII 7 


$07 inv 


135 


$87 




ML — 




inv 


— 




ML — 


inv 


— 






ICODE 66 


$42 


inv 


194 


$C2 offset 520 


ICODE 71 


$47 inv 


[99 


$C7 


offset 568 


KEYCODE 149 


$95 


uns 


21 


$15 CONTROL-B 


KEYCODE 189 


$BDuns 


61 


$3D 


CONTROL-G 



HI 



243 
248 



■ 



Ik 

127 



ATASCII 3 






$03 inv 


131 


$83 




ATASCI 




8 






$08 inv 


136 


$88 




VIL — inv 


— 






vIL PHP inv 


DEY 






ICODE 67 $43 inv 


145 


$C3 


offset 536 


CODE 72 .$48 inv 


200 


$C8 


offset 576 


KEYCODE 146 $92 uns 


18 


$12 


CONTROL-C 


KEYCODE 185 $B9 uns 


57 


$39 


CONTROL-H 








24 

24 

24 

248 

248 

24 

24 

24 


132 


$84 

























ll 

u 


137 


$89 




















































































II 








































ATASCII 4 


$04 inv 


ATASCI] 9 


$09 inv 




ML — inv 


STY 


z 




VIL ORA # inv 


— 






ICODE 68 $44 inv 


196 


$C4 


offset 544 


CODE 73 $49 inv 


201 


$C9 


offset 584 


KEYCODE 1 


S( 




$BA uns 


58 


S3A 


CONTROL-D 


K 


l\ 


C 


o 


J 


■1 


4 




$8D uns 


13 


$0D 


CONTROL-I 
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■ 



12a 

192 



240 
248 



ATASCII 10 $0A inv 138 $8A 

ML ASL A inv TXA 

ICODE 74 $4A inv 202 $CA offset 592 

KEYCODE129 $81 uns 1 $01 CONTROL-] 





' 


240 
240 
240 
240 

$0F inv 143 $8F 



ATASCII 15 

ML — inv — 

ICODE 79 $4F inv 207 

KEYCODE136 $88 uns 8 



$CF offset 632 
$08 CONTROL-O 





ATASCII 11 $0B inv 139 $8B 
ML — inv — 

ICODE 75 $4B inv 203 

KEYCODE133 $85 uns 5 



$CB offsel 600 
$05 CONTROL-K 



ATASCII 16 $10 inv 144 
ML BPL inv BCC 

ICODE 80 $50 inv 208 

KEYCODE138 $8A uns 10 



$90 



$D0 offset 640 
$0A CONTROL-!' 





ATASCII 12 $0C inv 140 
ML — inv STY 

ICODE 76 $4C inv 204 

KEYCODE128 $80 uns 



$8C ATASCII 17 $11 inv 145 $91 

abs ML ORA (ind),Y inv STA (ind),Y 

$CC offset 608 ICODE 81 $51 inv 209 $D1 offset 648 

$00 CONTROL-L KEYCODE175 $AF uns 47 $2F CONTROL-Q 



ATASCII 13 $0D inv 141 $8D 

ML ORA abs inv STA abs 

ICODE 77 $4D inv 205 $CD offset 616 

KEYCODE165 $A5 uns 37 $25 CONTROL-M 




ATASCII 18 $12 inv 146 
ML — inv — 

ICODE 82 
KEYCODE168 



$92 



ATASCII 14 $0E inv 142 
ML ASL abs inv STX 

ICODE 78 $4E inv 206 

KEYCODE163 $A3 uns 35 




$8E 

abs 

$CE offset 624 

$23 CONTROL-N 



ATASCII 19 
ML — 

ICODE 83 
KEYCODE190 



$52 inv 


210 


$D2 


offset 656 


$A8 uns 


40 


$28 


CONTROL-R 


24 

24 

24 

255 

255 

24 

24 

24 








$13 inv 


147 


$93 




inv 


— 






$53 inv 


211 


$D3 


offset 664 


SBE uns 


62 


$3E 


CONTROL-S 
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ATASCII 20 $14 inv 148 S94 

ML — inv STY z,X 

1CODE 84 $54 inv 212 $D4 offset 672 

KEYCODE173 SADuns 45 S2D CONTROL-T 



H 



240 

240 
240 
240 
240 
240 
240 
240 



ATASCII 25 $19 inv 153 $99 

ML ORA abs.Y inv STA abs.Y 

ICODE 89 $59 inv 217 $D9 offset 712 

KEYCODE171 $AB uns 43 $2B CONTROL-Y 




ATASCII 21 $15 inv 149 $95 

ML ORAz.X inv STA z,X 

ICODE 85 $55 inv 213 $D5 offset 680 

KEYCODE139 $8B uns 11 SOB CONTROL-U 



■ 



192 
192 
192 
192 
192 
192 
192 
192 



ATASCII 22 $16 

ML ASLz.X inv 

ICODE 86 $56 

KEYCODE 144 $90 



inv 150 
STX z,Y 
inv 214 
uns 16 




ATASCII 23 $17 inv 151 
ML — inv — 

ICODE 87 $57 inv 215 

KEYCODE 174 $AE uns 46 




$96 



$D6 offset 688 
$10 CONTROL-V 



$97 



$D7 offset 696 
S2E CONTROL-W 



in 

mm 



24 
24 
31 



ATASCII 26 




$1A inv 


154 


$9A 


vlL — 


inv 


TXS 




CODE 90 $5A inv 


218 


$DA offset 720 


KEYCODE 1 


51 


$97 uns 

120 

96 

120 

96 

126 

24 

30 




23 


$17 CONTROL-z 








155 




























ATASCII 


.7 


$1B inv 


$9B ESCAPE 


ML — 


inv 


— 


END OF LINE 


ICODE ' 


1 $5B inv 


219 


(RETURN)* 
$DB offset 728 


KEYCODE; 


.8 $IC uns 


28 


$1C (ESQ ESC 




*CHR$ (155) cannot be PRINTed. 




ATASCII 28 
ML — 
ICODE 92 
KEYCODE 142 



SIC inv 156 
inv — 
$5C inv 220 
$8E uns 14 



$9C CURSOR UP 
DELETE LINE 

$DC offset 736 

$0E {ESC} 

CONTROL- 
[hyphen] 



ATASCII 24 $18 inv 152 $98 

ML CLC inv TYA 

ICODE 88 $58 inv 216 $D8 offset 704 

KEYCODE 150 $96 uns 22 $16 CONTROL-X 
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ATASCII 29 $1D inv 157 

ML ORA abs,X inv STA 
ICODE 93 $5D inv 221 
KEYCODE143 $8F uns 15 




ATASCII 30 $1E inv 158 
ML ASL abs,X inv — 

ICODE 94 $5E inv 222 
KEYCODE134 $86 uns 6 




ATASCII 31 $1F inv 159 

ML — inv — 

ICODE 95 $5F inv 223 

KEYCODE135 $87 uns 7 



ATASCII 32 $20 inv 160 
ML JSR abs inv LDY 

ICODE $00 inv 128 

KEYCODE33 $21 uns 33 






I 


■ 
■ 


■ 
■ 


= 


5 


■ 


■ 






102 
102 
102 







162 

LDX 

130 

30 

163 

131 
26 

164 
LDY 
132 
24 

165 
LDA 
133 
29 


$A2 
# 

$82 
$1E 

$A3 

$83 
$1A 

$A4 
z 

$84 
S18 

$A5 
z 

$85 
$1D 
































































$9D CURSOR 

DOWN 
abs, X INSERT LINE 
$DD offset 744 
$0F {ESC} 

CONTROL- = 


ATASCII 34 
ML — 
CODE 2 
KEYCODE94 


$22 inv 

inv 

$02 inv 

$5E uns 

102 


offset 16 
SHIFT-2 




-HEEHE 






a is b 


pi 

m 




$9E CURSOR LEFT 
CLEAR TAB 

$DE offset 752 

$06 (ESC} 

CONTROL- + 


ATASCII 35 
ML — 
CODE 3 
KEYCODE90 


$23 inv 

inv 

$03 inv 

$5A uns 


offset 24 
SHIFT-3 








■■ 






24 

62 

<?6 

60 

6 

124 

24 










■ 


■■ 










■ 
■ 


■ 


„ 
















$9F CURSOR 
RIGHT 
SET TAB 

$DF offset 769 


ATASCII 36 
ML BIT z 
CODE 4 
KEYCODE88 


$24 inv 

inv 

$04 inv 

$58 uns 


offset 32 
SHIFT-4 


$07 {ESC} 








102 

1 08 

24 

48 

102 

70 






CONTROL-* 


. H 








1 












■■ 
















..! 
















$A0 

# 

$80 offset 


ATASCII 37 
ML AND z 
CODE 5 
KEYCODE93 


$25 inv 

inv 

$05 inv 

$5D uns 


offset 40 
SHIFT-5 


$21 SPACE BAR 






■: 


28 

54 

28 

56 

111 

102 

59 
















_ 


■ 


■ ■■ 






■ 


■■ 




■ 

























ATASCII 33 $21 inv 161 $A1 

ML AND (ind.X) inv LDA (ind,X) 

ICODE 1 $01 inv 129 $81 offset 8 

KEYCODE95 $5F uns 31 $1F SHIFT- 1 



ATASCII 38 $26 inv 166 $A6 

ML ROL z inv LDX z 

ICODE 6 $06 inv 134 $86 offset 48 

KEYCODE91 $5B uns 27 $1B SHIFT-6 



282 



Table 1 . Atari Character Set (continued) 



Appendix 




ATASCII 39 $27 inv 167 $A7 

ML — inv — 

ICODE 7 $07 inv 135 $87 offset 56 

KEYCODE115 $73 uns 51 $33 SHIFT-7 







',;> 



24 

24 

48 



ATASCII 44 $2C inv 172 $AC 

ML BIT abs inv LDY abs 

ICODE 12 $0C inv 140 $8C offset 96 

KEYCODE32 $20 uns 32 $20 , [comma] 







126 









ATASCII 40 $28 inv 168 $A8 

ML PLP inv TAY 

ICODE 8 $08 inv 136 $88 offset 64 

KEYCODE112 $70 uns 48 $30 SHIFT-9 



ATASCII 45 $2D inv 173 $AD 

ML AND abs inv LDA abs 

ICODE 13 $0D inv 141 $8D offset 104 

KEYCODE14 $0E uns 14 $0E -(hyphen] 






























































































- 











H 




24 














24 






rr 










ATASCII 41 $29 inv 169 $A9 

ML AND # inv LDA # 

ICODE 9 $09 inv 137 $89 offset 72 

KEYCODE114 $72 uns 50 $32 SHIFT-0 



ATASCII 46 $2E inv 174 $AE 

ML ROL abs inv LDX abs 

ICODE 14 $0E inv 142 $8E offset 112 

KEYCODE34 $22 uns 34 $22 




ATASCII 42 $2A inv 170 $AA 

ML ROL A inv TAX 

ICODE 10 $0A inv 138 $8A offset 80 

KEYCODE7 $07 uns 7 .$07 * 


















48 
■96 
64 



175 

143 
38 






























- 














HI 












p 














W- 














TT 












ATASCII 47 
ML — 

ICODE 15 
KEYCODE38 


$2F inv 
inv 

$0F inv 
$26 uns 


$AF 

$8F offset 120 

$26 / 






60 
102 
110 

na 

102 

60 






T TT^ 


Tori 





ATASCII 43 $2B inv 171 SAB 

ML — inv — 

ICODE 11 $0B inv 139 $8B offset 88 

KEYCODE6 $06 uns 6 $06 + 



ATASCII 48 $30 inv 176 $B0 

ML BM1 inv BCS 

ICODE 16 $10 inv 144 $90 offset 128 

KEYCODE50 $32 uns 50 $32 
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ATASCII 49 $31 inv 177 $B1 

ML AND (ind),Y inv LDA (ind),Y 

ICODE 17 $11 inv 145 $91 offset 136 

KEYCODE31 $1F uns 31 $1F 1 



ATASCII 54 $36 inv 182 $B6 

ML ROL z,X inv LDX z,Y 

ICODE 22 $16 inv 150 $96 offset 176 

KEYCODE27 $1B uns 27 $1B 6 




ATASCII 50 $32 inv 178 $B2 

ML — inv — 

ICODE 18 $12 inv 146 $92 offset 144 

KEYCODE30 $1E uns 30 $1E 2 





126 

6 

12 

24 

4 8 

48 





ATASCII 55 $37 inv 183 $B7 

ML — inv — 

ICODE 23 $17 inv 151 $97 offset 184 

KEYCODE51 $33 uns 51 $33 7 








ATASCII 51 $33 inv 179 $B3 

ML — inv — 

ICODE 19 $13 inv 147 $93 offset 152 

KEYCODE26 $1A uns 26 $1A 3 



ATASCII 56 $38 inv 184 $B8 

ML SEC inv CLV 

ICODE 24 $18 inv 152 $98 offset 192 

KEYCODE53 $35 uns 53 $35 8 





ATASCII 52 $34 inv 180 $B4 

ML — inv — 

ICODE 20 $14 inv 148 $94 offset 160 

KEYCODE24 $18 uns 24 $18 4 



ATASCII 57 $39 inv 185 SB9 

ML AND abs.Y inv LDA abs,Y 

ICODE 25 $19 inv 153 $99 offset 200 

KEYCODE48 $30 uns 48 $30 9 




ATASCII 53 $35 inv 181 $B5 

ML AND z,X inv LDA z,X 

ICODE 21 $15 inv 149 $95 offset 168 

KEYCODE29 $1D uns 29 $1D 5 




ATASCII 58 $3A inv 186 $BA 

ML — inv TSX 

ICODE 26 $1A inv 154 $9A offset 208 

KEYCODE66 $42 uns 2 $02 SHIFT-; 
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ATASCII 59 $3B inv 187 $BB 

ML — inv — 

ICODE 27 $1B inv 155 $9B offset 216 

KEYCODE2 $02 uns 2 $02 ; 



ATASCII 64 $40 inv 192 $C0 

MLRTI inv CPY # 

ICODE 32 $20 inv 160 $A0 offset 256 

KEYCODE117 $75 uns 53 $35 SHIFT-8 





ATASCII 60 S3C inv 188 SBC 

ML — inv LDY abs.X 

ICODE 28 SIC inv 156 S9C offset 224 

KEYCODE54 $36 uns 54 S36 < 



ATASCII 65 $41 inv 193 $C1 

MLEOR (ind,X) inv CMP(ind.X) 

ICODE 33 $21 inv 161 $AI offset 264 

KEYCODE127 $7F uns 63 S3F SHIFT-A 







126 





126 








ATASCII 61 $3D inv 189 $BD 

ML AND abs,X inv LDA abs.X 

ICODE 29 $1D inv 157 S9D offset 232 

KEYCODE15 $0F uns 15 S0F = 



ATASCII 66 $42 inv 194 $C2 

ML — inv — 

ICODE 34 $22 inv 162 $A2 offset 272 

KEYCODE85 $55 uns 21 $15 SHIFT-B 




ATASCII 62 S3E inv 190 SBE 

ML ROL abs,X inv LDX abs,Y 

ICODE 30 $1E inv 158 $9E offset 240 

KEYCODE55 $37 uns 55 $37 > 



:EH BtF 



60 
102 







ATASCII 63 $3F inv 191 $BF 

ML — inv — 

ICODE 31 S1F inv 159 S9F offset 248 

KEYCODE102 $66 uns 38 $26 SHIFT-/ 











60 

102 

S>6 

96 

102 

60 




195 


$C3 












ATASCI 


67 


$43 inv 




V1L — 


inv 


— 






CODE 


35 $23 inv 


163 


$A3 


offset 280 


KEYCO 


HE 82 


$52 uns 


18 
196 


$12 
$C4 


SHIFT-C 


1 


J 1 1 


120 
108 
102 
102 
108 
120 




1 




~ \ 1 




ATASCI 


I 68 


$44 inv 




ML — 


inv 


CPY 


z 




ICODE 


36 $24 inv 


164 


$A4 


offset 288 


KEYCO 


DE12; 




$7A uns 


58 


$3A 


SHIFT-D 
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ATASCII 69 
ML EOR z 
ICODE 37 
KEYCODE 106 




:fSft 



Ha: 

60 








$45 inv 197 $C5 

inv CMP z 
$25 inv 165 $A5 offset 296 
$6A uns 42 $2A SH1FT-E 



ATASCII 74 S4A inv 202 $CA 
MLLSR A inv DEX 

ICODE 42 $2A inv 170 $AA offset 336 

KEYCODE 65 $41 uns 1 $01 SHIFT-J 




ATASCII 70 
ML LSR z 
ICODE 38 
KEYCODE 120 




$46 inv 198 $C6 

inv DECz 
$26 inv 166 $A6 offset 304 
$78 uns 56 $38 SHIFT-F 



ATASCII 75 
ML — 

ICODE 43 
KEYCODE 69 





102 
108 
120 
120 
108 
102 







$4B inv 


203 


$CB 


inv 


— 




S2B inv 


171 


$AB offset 344 


$45 uns 


5 


$05 SHIFT-K 




ATASCII 71 
ML — 

ICODE 39 
KEYCODE 125 



_LlTl^JJI 



96 

96 

96 
96 
126 




$47 inv 199 $C7 

inv — 

$27 inv 167 $A7 offset 312 

$7D uns 61 $3D SHIFT-G 



ATASCII 76 $4C inv 204 $CC 

MLJMP abs inv CPY abs 

ICODE 44 $2C inv 172 $AC offset 352 

KEYCODE 64 $40 uns $00 SHIFT-L 





ATASCII 72 $48 inv 200 $C8 
MLPHA inv INY 

ICODE 40 $28 inv 168 $A8 offset 320 

KEYCODE 121 $79 uns 57 $39 SHIFT-H 



ATASCII 77 $4D inv 205 $CD 

ML EOR abs inv CMP abs 

ICODE 45 $2D inv 173 $AD offset 360 

KEYCODE 101 $65 uns 37 $25 SHIFT-M 





ATASCII 73 $49 inv 201 $C9 

ML EOR # inv CMP # 

ICODE 41 $29 inv 169 $A9 offset 328 

KEYCODE77 $4D uns 13 $0D SHIFI-I 



ATASCII 78 $4E inv 206 $CE 
MLLSR abs inv DEC z,X 

ICODE 46 $2E inv 174 $AE offset 368 

KEYCODE99 $63 uns 35 $23 SHIFT-N 
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ATASCII 79 $4F inv 207 $CF 

ML — inv — 

ICODE 47 $2F inv 175 $AF offset 376 

KEYCODE72 $48 uns 8 $08 SHIFT-O 




ATASCII 80 $50 inv 208 SDO 
MLBVC inv BNE 

ICODE 48 $30 inv 176 $B0 offset 384 

KEYCODE74 $4A uns 10 S0A SHIFT-P 




ATASCII 81 $51 inv 209 $D1 

MLEOR (ind),Y inv CMP (ind),Y 

ICODE 49 $31 inv 177 $B1 offset 392 

KEYCODE111 $6F uns 47 $2F SHIFT-Q 




ATASCII 82 $52 inv 210 $D2 

ML — inv — 

ICODE 50 $32 inv 178 $B2 offset 400 

KEYCODE104 $68 uns 40 S28 SHIFT-R 


















126 

24 

24 

24 

24 

24 




212 


$D4 
































- 






















ATASCII 84 


$54 inv 




ML — 


inv 


— 






ICODE 


52 $34 inv 


180 


$B4 


offset 416 


KEYCODE109 $6D uns 


45 


$2D 


SHIFT-T 








1 02 
102 
102 
102 
102 
126 




213 


$D5 




ATASCI 


85 


$55 inv 




ML EOF 


z,X inv 


CMP 




z,X 


ICODE 


53 $35 inv 


181 


$B5 


offset 424 


KEYCO 


DE75 $4B uns 


11 


SOB 


SHIFT-U 








102 

102 

102 

102 

60 

24 




214 


$D6 














ATASCI 


86 


$56 inv 




VILLSR 


z,X inv 


DEC 


abs 




ICODE 


54 $36 inv 


182 


$B6 


offset 432 


KEYCO 


DE80 


$50 uns 

99 
99 

ffl 

119 
99 

$57 inv 


16 

215 


$10 
$D7 


SHIFT-V 


1 


1 




ATASCI 


87 




ML — 


inv 


— 






[CODE 


55 $37 inv 


183 


$B7 


offset 440 


KEYCO 


3E110 $6E uns 


46 


$2E 


SHIFT-W 


i| 




102 

102 

60 

60 

102 

102 











ATASCII 83 $53 inv 211 $D3 

ML — inv — 

ICODE 51 $33 inv 179 SB3 offset 408 

KEYCODE126 $7E uns 62 S3E SH1FT-S 



ATASCII 88 $58 inv 216 $D8 

MLCLI inv CLD 

ICODE 56 $38 inv 184 $B8 offset 448 

KEYCODE86 $56 uns 22 $16 SHIFT-X 
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ATASCIl 89 $59 inv 217 $D9 
MLEOR abs.Y inv CMP abs,Y 
ICODE 57 $39 inv 185 $B9 offset 456 
KEYCODE107 $66 uns 43 $2B SHIFT- Y 




ATASCIl 94 S5E inv 222 $DE 

MLLSR abs.X inv DEC abs.X 

ICODE 62 $3E inv 190 $BE offset 496 

KEYCODE71 $47 uns 7 $07 SHIFT-* 




ATASCIl 90 $5A inv 218 $DA 

ML — inv — 

ICODE 58 $3A inv 186 $BA offset 464 

KEYCODE87 $57 uns 23 $17 SHIFT-z 



ATASCIl 95 $5F inv 223 $DF 
ML — inv — 

ICODE 63 
KEYCODE78 



$3F inv 191 $BF offset 504 
$4E uns 14 $0E SHIFT- - 
[hyphen] 




« 



ATASCIl 91 $5B inv 219 $DB 

ML — inv — 

ICODE 59 $3B inv 187 $BB offset 472 

KEYCODE96 $60 uns 32 $20 SHIFT-, 



ATASCIl 96 $60 inv 224 $E0 

MLRTS inv CI'X # 

ICODE 96 $60 inv 224 $E0 offset 768 

KEYCODE162 $A2 uns 34 $22 CONTROL-. 



■ 



64 
96 
48 








ATASCIl 92 $5C inv 220 
ML — inv — 

ICODE 60 $3C inv 188 

KEYCODE70 $46 uns 6 



$DC ATASCIl 97 $61 inv 225 $E1 

ML ADC (ind,X) inv SBC (ind.X) 

$BC offset 480 ICODE 97 $61 inv 225 $E1 offset 776 

$06 SHIFT- + KEYCODE63 $3F uns 63 $3F A 





ATASCIl 93 $5D inv 221 $DD 
MLEOR abs.X inv CMP abs.X 

ICODE 61 $3D inv 189 $BD offset 488 
KEYCODE98 $62 uns 34 $22 SHIFT-. 



ATASCIl 98 $62 inv 226 $E2 

ML — inv — 

ICODE 98 $62 inv 226 $E2 offset 784 

KEYCODE21 $15 uns 21 $15 B 
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- ■ 



60 
96 
96 
96 
60 




ATASCII 99 $63 inv 227 $E3 

ML — inv — 

ICODE 99 $63 inv 227 $E3 offset 792 

KEYCODE18 $12 uns 18 $12 C 




ATASCII 104 $68 inv 232 $E8 

MLPLA inv INX 

ICODE 104 $68 inv 232 $E8 offset 832 

KEYCODE57 $39 uns 57 $39 H 




ATASCII 100 $64 inv 228 $E4 

ML— inv CPX z 

ICODE 100 $64 inv 228 $E4 offset 800 

KEYCODE58 $3 A uns 58 $3A D 



■ 



60 




ATASCII 105 $69 inv 233 $E9 

ML ADC # inv SBC # 

ICODE 105 $69 inv 233 $E9 of fset 840 

KEYCODE13 $0D uns 13 $0DI 




ATASCII 101 $65 inv 229 $E5 

ML ADC z inv SBC z 

ICODE 101 $65 inv 229 $E5 offsets 

KEYCODE42 $2A uns 42 $2A E 



■ 



60 



ATASCII 106 $6A inv 234 $EA 
MLROR A inv NOP 

ICODE 106 $6A inv 234 $EA offset i 

KEYCODE1 $01 uns 1 $01 ] 




ATASCII 102 $66 inv 230 $E6 

MLROR z inv INC z 

ICODE 102 $66 inv 230 $E6 offset 816 

KEYCODE56 $38 uns 56 $38 F 



m 

=WSfc = 
1 1 1 1 1 1 1 



96 

96 

108 

120 

108 

102 





ATASCII 107 $6B inv 235 $EB 

ML — inv — 

ICODE 107 $6B inv 235 $EB offset 856 

KEYCODE5 $05 uns 5 $05 K 




ATASCII 103 $67 inv 231 $E7 

ML — inv — 

ICODE 103 $67 inv 231 $E7 offset 824 

KEYCODE61 $3D uns 61 $3D G 



■ 



24 
24 



60 




ATASCII 108 $6C inv 236 $EC 

MLJMP (ind) inv CPX abs 

ICODE 108 $6C inv 236 $EC offset 864 

KEYCODE0 $00 uns $00 L 
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■ 



ATASCII 109 $6D inv 237 $ED 

ML ADC abs inv SBC abs 

ICODE 109 $6D inv 237 $ED offset 872 

KEYCODE37 $25 uns 37 $25 M 



124 

102 

96 

96 

96 





ATASCII 114 $72 inv 242 $F2 

ML — inv — 

ICODE 114 $72 inv 242 $F2 offset 912 

KEYCODE40 $28 uns 40 $28 R 




ATASCII 110 $6E inv 238 SEE 

MLROR abs inv INC abs 

ICODE 110 $6E inv 238 $EE offset 880 

KEYCODE35 $23 uns 35 $23 N 




ATASCII 115 $73 inv 243 $F3 

ML — inv — 

ICODE 115 $73 inv 242 $F3 offset 920 

KEYCODE62 $3E uns 62 $3E S 




ATASCII 111 $6F inv 239 $EF 

ML — inv — 

ICODE 111 $6F inv 239 $EF offset f 

KEYCODE8 $08 uns 8 $08 O 




ATASCII 116 $74 inv 244 $F4 

ML — inv — 

ICODE 116 $74 inv 244 $F4 offset 928 

KEYCODE45 $2D uns 45 $2D T 




ATASCII 112 $70 inv 240 $F0 
MLBVS inv BEQ 

ICODE 112 $70 inv 240 $F0 offset 896 

KEYCODE10 $0 A uns 10 $0A P 






102 

102 

102 

102 

62 





ATASCII 117 $75 inv 245 $F5 

ML ADC z,X inv SBC z,X 

ICODE 117 $75 inv 245 $F5 offset 936 

KEYCODE11 SOB uns 11 $0B U 




ATASCII 113 $71 inv 241 $F1 

ML ADC (ind),Y inv SBC (ind),Y 

ICODE 113 $71 inv 241 $F1 offset 904 

KEYCODE47 $2F uns 47 $2F Q 




ATASCII 118 $76 inv 246 $F6 

MLROR z,X inv INC z,X 

ICODE 118 $76 inv 246 $F6 offset 944 

KEYCODE16 $10 uns 16 $10 V 
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ATASCII 119 $77 inv 247 $F7 

ML — inv — 

ICODE 119 $77 inv 247 $F7 offset 952 

KEYCODE 46 $2E uns 46 S2E W 




ATASCII 124 $7C inv 252 $FC 

ML — inv — 

ICODE 124 $7C inv 252 $FC offset 992 

KEYCODE79 $4F uns 15 $0F SHIFT- = 




ATASCII 120 $78 inv 248 $F8 

MLSEI inv SED 

ICODE 120 $78 inv 248 $F8 offset 960 

KEYCODE22 $16 uns 22 $16 X 



i 


■ 


~ 


126 
120 
124 
110 
102 


ii M r 







ATASCII 125 
ML ADC abs,X 


$7D inv 253 
inv SBC 



$FD CLEAR 
abs,X BUZZER 

(CONTROL- 2] 
ICODE 125 $7D inv 253 $FD offset 1000 
KEYCODE 118 $76 uns 54 $36 (ESC) SHIFT- < 




ATASCII 121 $79 inv 249 $F9 

ML ADC abs,Y inv SBC abs,Y 

ICODE 121 $79 inv 249 $F9 offset 968 

KEYCODE 43 $2B uns 43 $2B Y 




ATASCII 122 $7A inv 250 $FA 

ML — inv — 

ICODE 122 $7A inv 250 $FA offset 976 

KEYCODE23 $17 uns 23 $17 z 







24 

60 

126 

126 

24 

60 



$7B inv 

inv 

$7B inv 

$82 uns 


251 

251 
2 


SFB 

SFB 
S02 












ATASCII 123 
ML — 

ICODE 123 
KEYCODE 130 


offset 984 
CONTROL 



i 




l| 






B 

24 

56 

120 

56 

24 

8 




$FE 




JH_ 








iH 








■ 








mr 










^■i 












rn 












H 








ATASCII 126 


$7E inv 254 


DELETE 






BACK 


MLROR abs,X inv INC 


abs.X DELETE 






RIGHT 


CODE 126 $7E inv 254 


$FE 


offset 1008 


KEYCODE 52 $34 uns 52 


$34 


(ESC) 
DELETE 












16 
24 
28 
30 
28 
24 
16 



$FF 














































ATASCII 127 


$7F inv 255 


TAB 


ML — inv — 




INSERT 
CHARACTER 


CODE 127 $7F inv 255 


$FF 


offset 1016 


<E 


Y 


CODE4 


1 




$2C uns 44 


$2C 


(ESC) TAB 
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Table 2. Internal Code Index, ICODE: ATASCII 



o 

1 

2 
3 
4 
5 
6 
7: 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27: 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37. 
38 
39 
40 



32 


41 


73 


33 


42 


74 


34 


43 


75 


• 35 


44 


76 


36 


45 


77 


37 


46 


78 


. 38 


47 


79 


: 39 


48 


80 


. 40 


49 


81 


: 41 


50 


82 


. 42 


51 


83 


: 43 


52 


84 


44 


53 


85 


: 45 


54 


86 


: 46 


55 


87 


: 47 


56 


88 


: 48 


57 


89 


: 49 


58 


90 


: 50 


59 


91 


: 51 


60 


92 


: 52 


61 


93 


: 53 


62 


94 


: 54 


63 


95 


: 55 


64 





: 56 


65 


1 


: 57 


66 


2 


: 58 


67 


3 


: 59 


68 


4 


: 60 


69 


5 


: 61 


70 


6 


: 62 


71 


7 


: 63 


72 


8 


: 64 


73 


9 


: 65 


74 


10 


: 66 


75 


11 


: 67 


76 


12 


: 68 


77 


13 


: 69 


78 


14 


: 70 


79 


15 


: 71 


80 


16 


: 72 


81 


17 



82: 18 

83: 19 

84: 20 

85: 21 

86: 22 

87: 23 

88: 24 

89: 25 

90: 26 

91: 27 

92: 28 

93: 29 

94: 30 

95: 31 

96: 96 

97: 97 

98: 98 

99: 99 

100: 100 

101: 101 

102: 102 

103: 103 

104: 104 

105: 105 

106: 106 

107: 107 

108: 108 

109: 109 

110: 110 

111: 111 

112: 112 

113: 113 

114: 114 

115: 115 

116: 116 

117: 117 

118: 118 

119: 119 

120: 120 

121: 121 

122: 122 



123 


123 


164 


124 


124 


165 


125 


125 


166 


126 


126 


167 


127 


127 


168 


128 


160 


169 


129 


161 


170 


130 


162 


171 


131 


163 


172 


132 


164 


173 


133 


165 


174 


134 


166 


175 


135 


167 


176- 


136 


168 


177 


137 


169 


178 


138 


170 


179 


139 


171 


180 


140 


172 


181 


141 


173 


182: 


142 


174 


183 


143 


175 


184 


144 


176 


185: 


145 


177 


186: 


146 


178 


187: 


147 


179 


188: 


148 


180 


189: 


149 


181 


190: 


150 


182 


191: 


151 


183 


192: 


152 


184 


193: 


153 


185 


194: 


154 


186 


195: 


155 


187 


196: 


156 


188 


197: 


157 


189 


198: 


158 


190 


199: 


159 


191 


200: 


160 


192 


201: 


161 


193 


202: 


162 


194 


203: 


163 


195 


204: 



196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
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205 


141 


216 


152 


227 


227 


238 


238 


206 


142 


217 


153 


228 


228 


239 


239 


207 


143 


218 


154 


229 


229 


240 


240 


208 


144 


219 


155 


230 


230 


241 


241 


209 


145 


220 


156 


231 


231 


242 


242 


210 


146 


221 


157 


232 


232 


243 


243 


211 


147 


222 


158 


233 


233 


244 


244 


212 


148 


223 


159 


234 


234 


245 


245 


213 


149 


224 


224 


235 


235 


246 


246 


214 


150 


225 


225 


236 


236 


247 


247 


215 


151 


226 


226 


237 


237 


248 


248 



249 


249 


250 


250 


251 


251 


252 


252 


253 


253 


254 


254 


255 


255 
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- A Beginner^ 

- Guide to Typing 

- In Programs 



What Is a Program? 

A computer cannot perform any task by itself. Like a car without 
gas, a computer has potential, but without a program, it isn't going 
anywhere. Most of the programs published in this book are 
written in a computer language called BASIC. Atari 8K BASIC is 
easy to learn. 

BASIC Programs 

Computers can be picky. Unlike the English language, which is 
full of ambiguities, BASIC usually has only one "right way" of 
stating something. Every letter, character, or number is significant. 
A common mistake is substituting a letter such as "O" for the 
numeral "0" a lowercase "1" for the numeral "1", or an uppercase 
"B" for the numeral "8". Also, you must enter all punctuation such 
as colons and commas just as they appear in the book. Spacing 
can be important. To be safe, type in the listings exactly as they 
appear. 

Braces and Special Characters 

The exception to this typing rule is when you see the braces, such 
as "{DOWN}". Anything within a set of braces is a special char- 
acter or characters that cannot easily be listed on a printer. When 
you come across such a special statement, refer to Appendix C, 
"How to Type in Programs." 

About DATA Statements 

Some programs contain a section or sections of DATA statements. 
These lines provide information needed by the program. Some 
DATA statements contain actual programs (called machine 
language); others contain graphics codes. These lines are espe- 
cially sensitive to errors. 

301 



B 



Appendix 



If a single number in any one DATA statement is mistyped, 
your machine could "lock up," or "crash." The keyboard, break 
key, and RESET keys may all seem "dead," and the screen may go 
blank. Don't panic — no damage is done. To regain control, you 
have to turn off your computer, then turn it back on. This will 
erase whatever program was in memory, so always SAVE a copy 
of your program before you RUN it. If your computer crashes, you 
can LOAD the program and look for your mistake. 

Sometimes a mistyped DATA statement will cause an error 
message when the program is RUN. The error message may refer 
to the program line that READs the data. This error is still in the 
DATA statements, though. 

Get to Know Mour Machine 

You should familiarize yourself with your computer before 
attempting to type in a program. Learn the statements you use to 
store and retrieve programs from tape or disk. You'll want to save 
a copy of your program, so that you won't have to type it in every 
time you want to use it. Learn to use the machine's editing func- 
tions. How do you change a line if you made a mistake? You can 
always retype the line, but you at least need to know how to back- 
space. Do you know how to enter inverse video, lowercase, and 
control characters? It's all explained in your computer's manuals. 

A Quick Review 

1. Type in the program a line at a time, in order. Press RETURN at 
the end of each line. Use backspace or the back arrow to correct 
mistakes. 

2. Check the line you've typed against the line in the listing. You 
can check the entire program again if you get an error when you 
RUN the program. 

3. Make sure you've entered statements in braces as the appro- 
priate control key (see Appendix C). 

4. Be sure to SAVE the program on tape or disk before RUNning 
the program. 
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How to Type In 
Programs 



In order to make special characters, inverse video, and cursor 
characters easy to type in, COMPUTE! Magazine's Atari listing 
conventions are used in all the program listings in this book. 

Please refer to the following tables and explanations if you 
come across an unusual symbol in a program listing. 

Atari Conventions 

Characters in inverse video will appear like: >«:m =<;*! -■*<- vi^T 1 * 
Enter these characters with the Atari logo key, ( A} . 



When you see 


Type 

ESC SHIFT < 


St 


;e 


(CLEAR} 


IS 


Clear Sc r een 


(UP) 


ESC 


CTRL - 


1- 


Cur 5or Up 


(DOWN) 


ESC 


CTRL = 


4- 


Cursor Down 


(LEFT} 


ESC 


CTRL + 


*• 


Cursor Left 


{RIGHT} 


ESC 


CTRL * 


-♦ 


Cur sor Right 


{BACK S} 


ESC 


DELETE 


A 


Backspace 


{DELETE} 


ESC 


CTRL DELETE 


CI 


DeJete Character 


{ INSERT} 


ESC 


CTRL INSERT 


u 


Insert Character 


{DEL LINE} 


ESC 


SHIFT DELETE 


a 


De lete Line 


{INS LINE} 


ESC 


SHIFT INSERT 


a 


I nser t Line 


{TAB} 


ESC 


TAB 


► 


TAB key 


{CLR TAB} 


ESC 


CTRL TAB 


□ 


Clear TAB 


{SET TAB} 


ESC 


SHIFT TAB 


a 


Set TAB stop 


{BELL} 


ESC 


CTRL 2 


Q 


Ring Buz z er 


{ESC} 


ESC 


ESC 


t 


ESCape k ey 



Graphics characters, such as CTRL-T, the ball character • will 
appear as the "normal" letter enclosed in braces, e.g., {T}. 

A series of identical control characters, such as 10 spaces, 
three cursor-lefts, or 20 CTRL-R's, will appear as {10 SPACES}, {3 
LEFT}, {20 R}, etc. If the character in braces is in inverse video, 
that character or characters should be entered with the Atari logo 
key. For example, {Fl} means to enter a reverse-field heart with 
CTRL-comma, {5ffl} means to enter five inverse- video CTRL-U's. 
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ADR function 217 

alternate character sets, in "Super 

TextPlot" 142 
angular orientations, in "Super TextPlot" 

142 
ANTIC (A) command, in "SuperFont 

Plus" 129 
ANTIC chip 6 
ANTIC 4/5 character set, in "SuperFont 

Plus" 127, 128 
ANTIC 4 mode 127, 245 
ANTIC 5 mode 127, 245 
Assembler Editor 248, 249 
Assembler Editor manual 248 
Atari 400 233 
Atari 800 233 
Atari 1200XL 233-47 

incompatibilities 233, 242 

key definition 235-36 

memory map 233-47 

new graphics modes 245-46 

OS 244 
Atari 1200X1 Operating System Manual 240, 

247 
Atari BASIC graphics capabilities 201 
Atari BASIC Reference Manual 38, 225 
Atari character set 275-98 

tables 279-98 
Atari Personal Computer System Hardware 

Manual 37-38, 48, 201 
"Atari Verify" utility 165-66 
Atari XL models see XL models 
ATASCII 5-6, 142, 225, 248-49, 275, 292 
AUDCTL register 38-39, 45 
audio control registers 45 
audio frequency registers 45 
"Automate" 167-73 

automated system commands 167-73 
AUTORUN.SYS file see "Automate" 
back-arrow, as paragraph delimiter in 

"Scriptor" 105-6 
BASIC, extensions to 174 
BASIC cartridge 249 
"Beginner's Keyboard" 55-56 
blinking characters 27-30 
braces, in program listings 299 
BREAK key 175 
bubble sort 259 
"CalCalc" 87-93 

CAPS/LOWRkey8, 13, 14, 15, 17 
cartridge, advantage for OS 175 
"Castle Quest" 94-101 



CDRMA2 register 28 

CDTMA2 register 28 

CDTMV2 register 28 

CHACT register and inverse video 27-28 

CHBAS vector 142 

CIO (Central Input/Output) 176, 179 

circles 153-60 

difficulties in drawing 153 

potential method 156-57 

sines and cosines method 154-55 

square root method 155-56 

techniques 154 
code conversions 10-11 

ATASCII-ICODE conversions 10-11 

KEYCODE-ATASCII orlCODE 11 
Color Change mode, in "SuperFont Plus" 

130 
color rotation in P/M graphics 202 
COMPUTUS First Book of Atari 67 
COMPUTE'S First Book of Atari Graphics 

127, 142, 202 
COMPUTED Mapping the Atari 233, 246 
COMPUTE'S Second Book of Atari 165 
COMPUTE'S Second Book of Atari Graphics 

217 
CONTROL-DELETE key 12 
CONTROL-INSERT key 12 
CONTROL-lock key 8 
CONTROL-1 key 10 
CONTROL-2 key 12 
CONTROL-TAB key 12 
"The Cruncher" 225-27 
CTRL key, in "Scriptor" 105, 106, 107 
cursor 103 

control with joystick 163-64 
cursor codes 163 
DATA statement 299 
debounce 17 
De Re Atari 202 
DIMension statement 31-32 
DIR command 179 
disk files 104 

naming rules 107-8 
display list, relocating 201 
Dvorak keyboard layout 4, 8, 16 
8-bit note table 49-50 
"Elementary Numbers" 66-73 
exponential operator 3 
exponents 3 

correcting inaccuracy of 3 
Fl key 9, 13 

on!200XL234 
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F2 key 9, 13 

F3 key 9, 13 

F4 key 9, 13 

Fn keys 9 

FOR/NEXT loops, inaccurate for timing 

22 
GET 23 

GRAPHICS mode 58, 129, 228 
GRAPHICS 1 mode 129 
GRAPHICS 2 mode 74, 129 
GRAPHICS 7 mode 201 
GRAPHICS 12 mode 245-46 
GRAPHICS 13 mode 245-46 
GRAPHICS 14 mode 245-46 
GRAPHICS 15 mode 245-46 
HELP key 9, 13 
ICODE 5, 6, 10-11, 227, 292-93 
internal code see ICODE 
Internal Code Index 292-93 
interrupts 9 
INT function 3 
jiffy 228 
joystick 67 

for cursor control 163-64 
joystick codes 163 
keyboard code see also KEYCODE 
KEYCODE 4, 5, 7, 8, 10-11, 277, 296-98 

on XL models 9 
keys, customization 4-5 
"Laser Gunner II" 216-24 
LOCK command 178, 179 
machine language, merging with 

BASIC 

discussion 248-57 

safe memory 250-51 
Machine Language Index 294-95 
matrix wastes memory 225 
Mini-DOS, in "Scriptor" 107 
music, 16-bit 45-51 
Operating System, see OS 
OS, defined 174-75 
PEEK and POKE, sometimes faster than 

conventional commands 228 
peripherals 175-76 
Player/Missile graphics 201 

explosions 205 

fast motion 216 

player definition 202 

POKE to RAMTOP 202 

TRAPs 204-5 
PLOT command 225 
PRINT mode, in "SuperFont Plus" 129 



purging diskettes 195-98 
Qwerty keyboard layout 4, 8 
RAMTOP 

and strings 217 

changing 201 
RENAME command 178, 179 
"Renumber Plus" utility 191-94 
roots, exponential 3 
RUBOUTkeyl02 
SAVE, importance of 300 
SAVE, important in "Scriptor" program 

105 
SCRATCH command 178, 179 
screen editing characters 278 
screen RAM, relocating 201 
"Scriptor" 102-23 

customizing 110 

edit commands 111 

formatting commands 112 

Mini-DOS in 107 

RETURN and 105 

SAVE, important with 105 

sheet feeding 109-10 

text formatting 108-9 
selection and exchange sort 259 
selection sort 259 
self-modifying code, in "Standings" 

program 76 
SHIFT-CONTROL combinations 9 
SHIFT-DELETE key 12 
SHIFT-INSERT key 12 
SHIFT-lock key 8 
SHIFT-RETURN key 12 
SHIFT-TAB key 12 
16-bit dividers 47 
16-bit note table 49-50 
16-bit sound 48, 50-51 
6502 machine language 167, 276 
sort, defined 258 
sort routine, in "Standings" program 

75 
sort utility, machine language 258-71 

faster than BASIC 260 

instructions 261-62 

options 262 
sound 37-44 

difficulties with 37 
"Sound Experimenter" 39-44 
SOUND instruction 37, 50, 225 
"Spelling Quiz" 57-65 
SQR function 3 
"Standings" 74-86 



307 



"Starshot" 201-15 
string arrays 31-33 

fast initialization 31 
strings 

and renumbering 191 

holding Player/Missile data 217 

machine language in 252-53 

take less space than matrices 225 
"SuperFont" 127 

commands 128-29 
"SuperFont Plus" 127-41 

new commands 129 
"Super TextPlot" 142-52 

alternate character sets in 142 

angular orientations in 142, 147 

applications 148 

cautions with 146-47 

loading 147-48 

mathematics of 143-44 

parameters 144-46 



text formatting, in "Scriptor" 108-9 

"TextPlot" 142 

timer 22-26 

times, sample 24 

time test programs 229-30 

timing, accurate 23-26 

tokens, BASIC 191 

TRAP 32-33, 196, 204-5, 227 

tuning inaccuracy 46 

reduced by 16-bit dividers 47 
UNLOCK command 178, 179 
USR function 144 
Vertical Blank Interrupt 217-19 
vertical blank period 27, 29, 163 
wedge 176-77 
"The Wedge" 174-90 
word processing concepts 102-3 
XIO 196 

XL models 7, 9, 13 
young children, computers and 66 
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